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SUMMARY OF AMENDMENTS 



DL/I Version 1.5 

This version of DL/I provides system changes and functional enhancements 
such as: 

Field Level Sensitivity 

This function makes it possible for the user to specify only those 
fields in the physical definition of a given segment that are to be 
included in his application's view of that segment , while remaining 
insensitive to the other fields in the segment. 

Extended Logical Relationships 

The restriction of only one logical relationship per logical path has 
been removed. The user may now define as many logical relationships 
as he needs to satisfy his requirements. 

Unique Segment Support 

It is possible for the user to specify that only one occurrence of a 
particular segment type is allowed under a particular parent. 

Selective Log Print 

It is possible for the user to selectively print data from the log, 
using the log print utility, by specifying a DBD name, CICS task ID, 
or relative block number. 

DL/I FBA Device Support ICR 

Technical Newsletter LN2U-5614 documents the following from the FBA 
device support Independent Component Release (ICR): 

FBA Device Support 

This support makes it possible for data bases and utility work files 
to reside on Fixed Block Architecture devices. 

DL/I Version 1.4 

This version of DL/I provides system changes and functional enhancements 
such as: 

RPG II Support 

Application programs written in RPG II can now access DL/I data bases 
in a manner similar to programs written in COBOL, PL/I, and Assembler 
language. 

Prefix Resolution Improvement 

The prefix resolution utility now passes an actual maximum record 
length, instead of a maximum possible record length, to the DOS/VS or 
DOS sort/merge program. 

Extended DL/I Call Interface 

This support, along with CICS/VS high level language support, 
eliminates the need for application programs to reference internal 
CICS/VS control blocks. A new parameter has been added to the PCB 
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call to obtain the address of the DL/I User Interface Block. This 
control block contains the information previously returned in the 
TCA. 

This enhancement is required for application programs written in RPG 
II. It may also be used in programs written in COBOL ^ PL/I, and 
Assembler. 

Intersystem Communication 

CICS/VS intersystem communication support enables DL/I application 
programs to access a data base that is resident on another CPU. 

High Level Language Debugging for PL/I 

This support for PL/I allows diagnostic information to be supplied by 
both PL/I and DL/I. It is designed for only batch and MPS batch 
execution of DL/I, and does not require any changes to the PL/I code. 

Performance Improvements 

Performance improvements have been made to image copy, the batch 
partition controller, the HD unload utility, the log buffer and log 
print utility, and program isolation. 

DL/I Version 1.3 

This version of DL/I provides system changes and functional enhancements 
such as: checkpoint capability with the new DL/I call function CHKP; 
program isolation capability for online and MPS users as an optional 
replacement for intent scheduling; the distributed free space feature to 
improve performance of data bases with high insert activity; a log print 
utility to enable the printing of log files; a disk logging facility for 
the disk-only user; support for the IBM 3350 direct access storage; and 
other servicability, performance, and functional capabilities. 
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PREFACE 



This manual is to be used with the program listings for DL/I DOS/VS. It 
discusses the internal operation of the DL/I system as an application 
program under DOS/VS, It is intended for use by persons involved in 
program maintenance and by system programmers who are altering the 
program design. 

DL/I DOS/VS is a data management control system that assists the user in 
creating, accessing, and maintaining large common data bases. In 
conjunction with the Customer Information Control System CCICS/VS) , DL/I 
DOS/VS can be used in an online teleprocessing environment. 

Readers of this manual must be thoroughly familar with the use of 
DOS/VS, and of CICS/VS, if DL/I DOS/VS is to be used in the online or 
multiple partition support (MPS) environment. 

Because DL/I DOS/VS is a functional subset of the IBM Information 
Management System/Virtual Storage (IMS/VS), some specific IMS or OS 
terms are used in this manual. These terms are used to allow easy 
reference to the documentation of the related systems. 

This manual is divided into seven sections. 

Section 1; Introduction; Summarizes DL/I DOS/VS giving general 
information about the purpose of system control modules, DL/I facility 
modules, MPS modules, and utility modules. 

Section 2; Method of Operation; Contains HIPO diagrams that describe 
the DL/I modules. The diagrams include cross-references to labels in 
the program listings. 

Section 3; Program Organization; This section provides descriptive 
information about the DL/I modules and major routines. 

SECTION 4 ; Directory ; Lists DL/I module, entry point, and control 
section names with cross-references to Section 2 of this manual. 

Section 5; Data Areas; Describes the data areas used by DL/I. Field 
and flag names for each data area are also listed alphabetically. 

Section 6; Diagnostic Aids; Gives information that may be helpful in 
locating specific program listings. 

Section 7; Appendixes; Contains information about L-LC/CC in DL/I, DBD 
generation, PSB generation and DL/I macros. 

An index is also included. 

Note; In this publication, the system and component name DOS/VS should 
be read as DOS/VSE unless that name explicitly refers to DOS/VS release 
34 or an earlier DOS/VS release,. 

Related Publications 

DL/I DOS/VS General Information Manual , GH20-1246 

DL/I DOS/VS Application Program Reference Manual , SH12-5411 

DL/I DOS/VS Utilities and Guide for the System Programmer / SH12-5412 

DL/I DOS/VS System Application/Design Guide ^ SH12-5413 
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DL/I DOS/VS Messages and Codes ^ SH12-5414 
DL/I DOS/VS Guide for New Users ^ SH24-5001 
DL/I DOS/VS Diagnostic Guide ^ SH24-5002 

For DOS/VS messages and return codes: 

DOS/VSE Messages > GC33-5379 

DOS/VSE Macro User's Guide ^ GC24-5139 

DOS/VSE Macro Reference > GC24-5140 

Using VSE/VSAM Commands and Macros ^ SC24-5ia4 

VSE/VSAM Messages and Codes ^ SC24-5146 

Users employing DL/I DOS/VS in an online environment should have access 
to the following CICS/VS publications: 

CICS/VS System Programmer's Reference Manual ^ SC33-0069 
CICS/VS Application Programmer's Reference Manual ^ SC33-0079 
CICS/VS System Application Design Guide ^ SC33-0068 
CICS/VS System Programmer's Guide (DOS/VS) ^ SC33-0070. 
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SECTIOW 1; INTRODUCTION 



Data Language/I Disk Operating System/Virtual Storage (DL/I 4D0S/VSr 
herea£ter referred to as DL/I) is a data management control system that 
assists the user in creating, accessing, and maintaining large common 
data bases. In conjunction inrlth the Customer Information Control System 
(CICS/DOS/VS) , DL/I can be used in an online teleprocessing environment. 
Also in conjunction with CICS/VS, DL/I provides a centralized data 
facility, multiple partition support (MPS), which controls concurrent 
access to data bases from multiple batch partitions. 

Section I summarizes and describes the following: 

• DL/I Batch System 

• DL/I Online Processor 

• DL/I Facility Modules 

• Multiple Partition Support (MPS) 

• DL/I Utilities 
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DI^I BATCH SYSTEM 

The DL/I batch system executes as an application program in a virtual 
storage environment under DOS/VS, The DOS/VS partition in which the 
DI//I batch system executes is composed of the elements shown in Figure 
1-1, These are: 

• The system control facility 

• The DL/I facility 

• The DOS/VS VSAM and SAM data management modules 

• The user application program 

The major components of the DL/I system are the system control facility 
and the DL/I facility. The system control facility receives control 
from DOS/VS job control, initializes the DL/I batch system, and 
interfaces between DL/I and the user application program. The DL/I 
facility interfaces with the DOS/VS VSAM and SAM data management modules 
when performing the data base call function requested by the user 
application. 

The system control facility is divided into four functional areas (see 
Figure 1-2) : 

• Region control 

• Application program control 

• Language interface 

• Program request handler. 

Region control is responsible for a general group of housekeeping 
functions common to various optional processing modes of the DL/I DOS/VS 
partition (also called a region). These functions are: 

• Initial interface with DOS/VS job management 

• Analysis and validity checking of DL/I parameter information 

• Loading the batch nucleus. 

Application program control is entered from region control and performs 
the following functions: 

• Loading the DL/I application control blocks (PSB and DMBs) and 
relocating the control block addresses. 

• Creation of the PSB intent list and the DMB directory (DDIR). 

• Acquiring and formatting storage for the buffer pool control blocks 
and their related I/O buffers. 

• Loading the DL/I facility modules. 

• Loading the application program and passing control to it. 

The language interface provides communication between the application 
program and the program request handler. This module is link-edited 
with the application program and provides a common interface for DL/I 
calls written in PL/I, COBOL, RPG II, or Assembler language. 
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Figure l-l. Elements of a DL/I DOS/VS Batch Partition 
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Figure 1-2- System Control Facility Relationships 
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The program request handler receives the DL/I call from the user 
application program via the language interface. It performs the 
following functions: 

• Checks validity and^ if necessary, reformats the caller's parameter 
lists and submits them to the DL/I facility. 

• Accepts parameter lists from the DL/I facility and moves data to the 
user's work area, if required. 

• Returns control directly to the user application program. 

See Section 3 for a detailed description of each of these modules. 



DL/I ONLINE PRCX:ESS0R 

The DL/I system operating in a teleprocessing environment under CICS/VS 
contains all the functional parts listed for the batch system, plus a 
set of service routines called the DL/I online processor. These 
routines establish a connection between DL/I and the CICS/VS-DL/I 
interface. 

In an online environment, the DL/I system executes within the CICS/VS 
partition. CICS/VS provides exit interfaces to DL/I for the following: 

• DL/I system initialization during CICS/VS initialization. 

• DL/I system termination during CICS/VS termination. 

• DL/I user task scheduling of DL/I resources before an application 
program accesses DL/I. 

• DL/I user task completion and return of DL/I resources after the 
application program has issued a CICS/VS synchronization point 
(SYNCPOINT) command or has completed DL/I processing. 

When the user application program issues a DL/I call, control passes to 
the online language interface module and the program request handler. 
The program request handler validates the call and passes it to the DL/I 
facility,. The DL/I facility invokes CICS/VS services through the online 
interface for such functions as transaction and storage management. On 
completion of the DL/I call, the DL/I facility returns control to the 
CICS/VS application progrcun via the program request handler. The 
program request handler also interfaces with CICS/VS for any functions 
performed externally to DL/I. 
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DL/i facilIity modules 

The funct^ions of data base creation, access, maintenance, and 
reorganisation are accomplished by the DL/I facility (see Figure 1-3). 
The DL/I call is passed from the system control facility to the DL/I 
call analyzer, which is the focal point of the DL/I facility. The type 
of call is analyzed (DL/I call, pseudo call, or internal call resulting 
from a DL/I call), and control is passed to the appropriate action 
module to process the call. 

The action modules of the DL/I facility, together with their major 
functions, are listed below: 

• Open/Close Module 

Open DL/I data bases 

Close DL/I data bases 

Interface with data base logger to write data set open record to 

log file 

• Delete/Replace Module 

Delete segment of DL/I data base in conjunction with buffer 

handler 

Replace segment of a DL/I data base in conjunction with buffer 

handler 

Interface with data base logger to record changes on log file 

Interface with space management for HDAM and HIDAM data bases 

Interface with index maintenance for data bases with indexes 

• Load/Insert Module 

Load segments into a DL/I data base in conjunction with the 

buffer handler 

Insert segments into a DL/I data base in conjunction with the 

buffer handler 

Interface with data base logger to record changes on log file 

Interface with space management for HDAM and HIDAM data bases 

Interface with index maintenance for data bases with indexes 

Issue I/O for Simple HSAM and HSAM data bases 

• Retrieve Module 

Retrieve a segment of a DL/I data base in conjunction with the 

buffer handler 

Perform data base positioning for load/insert 

Issue I/O for Simple HSAM and HSAM data bases 

• Index Maintenance 

Maintain any indexes for HDAM or HIDAM data bases in conjunction 

with the buffer handler 

Interface with data base logger to record changes on log file 

• Space Management 

Allocate and maintain free space on DASD in conjunction with the 
buffer handler for storage of DL/I segments for HDAM and HIDAM 
data bases 
Interface with data base logger to record changes on log file 



1-6 Licensed Material - Property of IBM 



• Buffer Handler 

For HDAM or HIDAM data base^ satisfy requests for segments or 

records from data currently available in the buffer pool 

Issue I/O to VSAM for HDAM or HIDAM data base requests that 

cannot be satisfied from the buffer pool 

Issue I/O to VSAM for all Simple HISAM and HISAM data base 

requests 

• Data Base Logger 

Record all data base modifications on the DL/I log tape using 
DOS/VS SAM, or disk log using VSAM or CICS Journal 

• Queuing Facility 

Provide support for contention control at the segment and record 

level. 

Provide deadlock detection and resolution. 



• FLS copy Module 



Provide user view/ physical view conversion for field level 
sensitivity. 



See Section 3 for a detailed description of the modules. 
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Figure 1-3, DL/I Facility Relationships 
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MULTIPLE PARTITIOM SOPPORT <MPS) 

DL/I has the capability to enable application programs executing in 
different partitions to access the same data base concurrently. This 
capability t multiple partition support (MPS), permits^ for example, 
online applications to issue inquiries to a data base while a batch 
program updates it. 

In addition, MPS enables multiple batch and online application programs 
to access a data base concurrently instead of serially. MPS uses the 
DL/I resources and the inultitasking facilities of DL/I and CICS/VS. 



DL/I UTILITIES 

'■ ' \ ' - ' ■ ■ ■ 

The DL/I utility modules are categorized as follows: 

• Application control blocks creation and maintenance: this utility 
program is used to merge and expand into an internal format the 
control blocks created by the DBD and PSB generation utilities. The 
control blocks created by this utility are used by the DL/I system.. 

• Data base recovery: This is a set of utility programs employed to 
reconstruct a data bas«. 

• Data base xeorganization: this is a set of utility programs employed 
to reorganize a data base. Use of these programs reduces direct 
access storage requirments by compacting data and t^hus reducing data 
l)ase access time. 

• Data base logical relationship resolution: this is a set of utility 
programs employed to update pointer information when data bases 
involved in logical relationships and/or secondary index 
relationships are initially loaded or reorganized. 
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SECTION 2: METHOD OF OPERATION 



This section contains HIPO (Hierarchy, plus Input, Process, Output) 
diagrams. 

The three areas of each HIPO diagram are, from left to right, the input 
area, process area, and output area. Read the diagrams beginning with 
the process area. This describes a function that is performed. Arrows 
leading from the input area show what, if any, input is used to perform 
that function. Arrows leading to the output area show what output, if 
any, is produced. 

At the bottom of each HIPO diagram is an area called "extended 
descriptions". This area contains comments not included in the process 
area of the diagram. For most items in the process area, extended 
description items with the same numbers give details that cannot be 
easily shown in diagram form or in the space allowed. 

Various forms of arrows represent different usage conventions. Also, 
items are often boxed in to show that they are related to the same 
function. Figure 2-1 shows the conventions used in the HIPO diagrams. 

Figure 2-2 is a visual table of contents with figure numbers. The 
figure numbers refer to the HIPO diagrams. 
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Figure 2-1. Guide to Reading Methodof Operation Diagrams 
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Figure 2-2. Visual Table of Contents for DL/I DOS/VS HlPO Charts 
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Figure 2-3. Batch Initialization (Overview) 

From DOS/VS 
■• INPUT I ■■ PROCESS • 



1. Enter batch initialization. 
(See Figure 2-3.1) 

2. Begin batch partition control. 
(See Figure 2-3.2) 

3. Parameter scan and validation. 
(See Figure 2-3.3) 

4. Begin application program control. 
(See Figure 2-3.4) 

5. Utility block build request handler. 
(See Figure 2-3.5) 

6. Complete application program control. 
(See Figure 2-3.6) 



7. Block loader and relocator. 
(See Figure 2-3.7) 

8. Complete control program initialization. 
(See Figure 2-3.8) 

9. DL/I control card analyze routine. 
(See Figure 2-3.9) 
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Figure 2-3.1. Batch Initialization Entry 
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Figure 2-3.2. 
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Extended Description 


Routine 


Label 


1 . The end address of phase DLZRRCOO 
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Figure 2-3.3. Parameter Scan and Validation 
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Extended Description 


Routine 


Label 
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Extended Description 



DLZRRCOO 

Routine 



Label 
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Figure 2-3.4. Application Program Control (Part 1 of 2) 
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Extended Description 
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Figure 2-3.4. Application Program Control (Part 2 of 2) 



■■ INPUT 



I SCDPRHED t 



PPIP 



SCD 



PDIRADDR ISCDEXTBA 



PSTPREAD 



{PROCESS ' 
R <^t lini 



— :► 



6. Set linkage to program request 
handler. 



MVCOM Macro 



7. Pass control to application or 
utility program. 




pi OUTPUT- 





DOS/VS 
COMREG 











+16 
















R1 


1 PSBLIST 1 


R13 


1 PCCOSAVE 1 


PPST 


1 PPSTIND 1 





DLZRRC10 - Batch Partition Control CSECT 



Extende^>escriDtion 



6. Linkage to DLZPRHBO is done 
via MVCOM macro. 

7. If utility program is a logical 
relationship utility, set Rl to 
point to the PST before passing 
control to the utility. Set Rl 

to point to the user PCB list 
for all other programs. 



Routine 



Label 



MVCOM 
BALRUSER 



Routine 



Label 
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Figure 2-3.5. Utility Block Build Request Entry 



INPUT 



SCP 



PST 



PSTPREAD PDIRADDR 




PROCESS ' 



1. Restore registers saved during 
initialization. 



> 2. Build the blocks. 



DLZPINIT 



Block Loader 
and Relocator 
2-3.7 



3. Establish addressability 
to PCBs. 



4. Return to caller. 



■-OUTPUT- 



DLZRRC10 - Batch Partition Control CSECT 
Extended Description 





PPST 






PPSTIND 






R1 






PSBLIST 











1 . Control comes from the batch 
program request handler (DLZBNUCO) 
when a utiHty block build request 
(BLDB) is detected. 

2. If a block build error is indicated 
in ULUCNTRL, X*OC' is set 

in register 1 5 and control returns 
to the utility program. 



4. 



■MwJMMHiMMM£L 



ULUPRHEP 



ULUPRHEP 



ULUGOOD 



ULUEXTZ 



Extended Description 



DLZRRCOO 

Routin^^^^Label 
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Figure 2-3.6. Application Program Control Completion 



I PROCESS 



■-OUTPUT- 




DLZRRC10 - Batch Partition Control CSECT 
ed Description 



Routine 



Label 



1. TERM record ID=X'07'. 

4. The UNLD call is bypassed if 
the ULU return code in register 
15 is not zero. 

6. Issue macro DLZTRCAL 
TYPE=STOP. Trace 
ID=XTC'. 


DLZPCCOO 


BALRUSER 
BYULUEND 

DLZEOJ 



Extended Description 




Licensed Material • Property of IBM 2-11 



I Figure 2-3.7. Block Loader and Relocator (Part 1 of 5) 

INPUT I ■o'oTe'^"? I 

2-3.4, Step 1 
or 2-3.5, 
Step 2 



PSTPCPSB 



SCD 



Q 



SCDDUPS 



SCDDLIUP 



DOS/VS 
Core 
Image 
Library 




PROCESS 



I SCDDLIUP II PSILDMBN | 



PSBXPCB 



:> 



-> 



DLZRRC10 - Batch Partition Control CSECT 



. Bypass block loading if identifier 
is ULU and entering here from 
Application Program Control 
(Figure 2-3.4, Step 1). Go to 
Figure 2-3.8, Step 8. 



.OUTPUT- 



2. Load the PSB. 



LOAD Macro (Directory Entry) 
LOAD Macro 



3. Initialize DMB directory. 



4. Initialize and relocate 
PSB pointers. 



^ i RETRGSV 



DL/I Partition 



PSB 



PDIR 


PSB 


PDIRSYM 


PSBXIOWK 




PSBSEGWK 


PDIRZWA 


PSBNDXWK 


PDIRSILA 


PSBIOAWK 





PSIL 


DDIRSYM 


PSILDMBN 


DDIRNUMB 


PSILDIRN 



SCDDLIDM 



SCDDLIUP 



PSB 


PDIR 


PSBPST 


JpdircodeI 


PSBXPCB 




PSBLIST 





Extended Description 


Routine 


Ubel 


1 . There are no blocks to load 
for theological relationship 
utilities if this is the first 
caU. 


DLZPINIT 


DLZPINIT 


The return address is saved 
in RETRGSV. 






2. If the |>CB is not found and 
the parameter identifier is 
ULU for a logical relationship 
utilityrset a block load error 
indicator and return to 
Figure 2-3.5, Step 3. 




DLZDBLMO 


Write message DLZ012I if the 
PSB is not found. 






Write message DLZ017I if the 
PSB version/modification level 
is incorrect. 







Extended Description 



Routine Label 



3. The PSILs are scanned for 
DMB names and a DDIR is 
created for each unique DMB 
encountered. The address of 
the DDIR replaces the 
respective DMBNAME in each 
PSIL. 

4. 




DDIRBILD 
PCBRLUIP 
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I Figure 2-3.7. Block Loader and Relocator (Part 2 of 5) 



m INPUT 



P£S. 



DBPCBJCB 



SCD 

|SCDSIND2 1 



SDBORGN 



SDBF3 



SCD 



SCDDLIUP 



DOS/VS 
Core 
Image 
Library 



DDtR 

[ddirsym 



g 



I PROCESS • 



r OUTPUT- 



DDIR 


DMB 


1 DDIRCODE 1 


DMBORG 




DMBPPRND 



ACBXT 



DMBLRECL 



DLZRRC10 - Batch Partition Control CSECT 



. Relocate the PCB and JCB 
pointers. 



6. Initialize all SDBs belonging 
to a particular JCB. 



. Test for the end of the RGBs in 
the PSBLIST. If not the end, 
return to Step 4. 



^ 8. Load and relocate each DMB. 



:> 



LOAD Macro (Directory Entry) 
LOAD Macro 



9. Determine if buffer pool space 
required and set indicators. 



:> 



PCB 


JCB 


1 DBPCBJCB 1 


JCBLEVTB 




JCBLEVND 




JCBSDB1 




JCBSDBND 



DDIR 


SDB 


1 DDIRCODE 1 


SDBF3 




SDBPARA 




SDBDSGA 




SDBTARG 




SDBKEYFD 




SDBXPANS 



SCD 



SCDDLIUP 



DL/I Partition 




xtended Description 


Routine 


Ubel 


5. 


DLZPINIT 


PCBPLIB 


6. The call sensitivity and data 
base organization of the SDB 
is checked to see if buffer pool 
space is required. An indicator 
in the DDIR is turned on if 
space is required. 




SDBRELO 


7. The pointer to the PSBLIST 
is bumped to the next PCB 
pointer entry and processing 
returns to Step 4 if we are not 
at the last PCB. 




NPCBCK 


If the index PCB exists, return 
to Step 5 and relocate it. 






8. Write message DLZ012I if the 
DMB is not found. 




LOADDMBS 
OMBLOADF 


Write message DLZOl 81 if the 
DMB version/modification level 
is incorrect. 









Routine 


Label 


If the DMB is not found and 
the parameter identifier is ULU 
for a logical relationship utility, 
set a block load error indicator 
and return to Figure 2-3.5, 
Step 3. 

9. If buffer pool space is required, 
the size of each control interval 
(rounded to the next multiple 
of 512) is indicated in PSTWRKl 
and PSTWRK2 for later allocation 
of the buffer pool. 




GETBUFRS 
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I Figure 2-3.7. Block Loader and Relocator (Part 3 of 5) 
pi INPUT ■ am PROCESS — 



DMBDALGR 



DOS/VS 
Core 
Image 
Library 



DACS 

IdmbdanmeI 



DMBINDO 



DMBACBNM 



> 10. Load Randomizing Module if 
organization is HDAM. 



ddr! ' - . — — 



STATLDLS SCD 



DMBVLDFG 



DMBSCTAB 



DMBLST 



:> 



LOAD Macro (Directory Entry) 
LOAD Macro 



1 1 . Adjust offsets in DMB to 
addresses for each valid DDIR. 
At end of DDIRs, go to Step 15. 



12. Build VSAM Exit List, RPL, and 
ACBs. 



:> 



-OUTPUT- 



« 



GENCB BLK=RPL Macro 
GENCB BLK=EXLST Macro 
GENCB BLK=ACB Macro 



13. Relocate PSDBs and SEC list. I 

' LOAD Macro (Directory Entry) 
LOAD Macro 



:0 



C> 



DL/I Partition 



I DMBDALGR 1 1 DMBDAEP 



SCDDLIUP 



DL/I Partition 



BEL. 



ACB 



ACBXT 


SCD 


DMBACBAD 


1 SCDDLIUP 1 


DMBACBRP 




DMBACBEX 





DL/I Partition 



Compression Routine 



PSDB 


CPAC 


DMBFDBA 


DMBCPEP 


DMBSCTAB 


DMBCPRES 



DLZRRC10 - Batch Partition Control CSECT 



Extended Description 


Routine 


Label 


10. Before loading the randomizer a 


DLZPINIT 


RANCKLUP 


check is made with all currently 






loaded randomizers. If one with 






the same name as the one we are 






loading is found, the entry point 






is resolved and the actual load is 






bypassed. 






Return to Step 8 until there are 






no more DDIRs. 






Write message DLZO 1 21 if the ran- 






domizing module is not found. 







Extended Description 


Routine 


Label 


1 1 . The DTF address constants are 




DMBOFFAJ 


adjusted if access is HSAM or 
simple HSAM. 






12. If HISAM, two sets of control 
blocks will be built. 




DLZBVBLD 


13. The segment compression routine 
for each PSDB is loaded (if it 
hasn't already been loaded for a 
previous PSDB). 




PSDBROUT 


Write message DLZO 1 21 if the 






compression routine is not found. 
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I Figure 2-3.7. Block Loader 

M INPUT 111 



and Relocator (Part 4 of 5) 
PROCESS — 



SCDDLlDiy/^ 


Idmqsize I 


SCDDLIDN 




SCDDLIUP 








PDIR 


PSB 


PDIRADDR 


1 PSfeLIST 1 


PDIRCODE 




PDIRSILA 


see 




I SCDINDZ 



DBPCBJCB 



' JCB 



DSGDMBNO 


PSIL 


DSGDCBNO 


1 PSILDIRN 1 


DSGINDG 





SDB 



SDBXFL 



DMB 
I DMBORG I 



:> 



14. Process secondary list if 
present for each PSDB. 



LOAD Macro (Directory Entry) 
LOAD Macro 

Return to Step 11. 



15. Connect data bases to PCBs. 



16. Connect SDBs to PSDBs. 



t> 



> 



i OUTPUT- 



DL/I Partition 






SEC PSDB 


DMBSFLG1 


1 DMBLST 1 


DMBSECDB 


XMPRM 


DMBXDSDB 


DMBXITAD 


DMBXMXEP 


DMBXPSDB 


DMBXMRES 


SCD 




1 SCDDLIUP 1 









PCB DSG 


1 DBPCBPRO 1 


DSG DOB A 




DSGDMBNO 







SDBXP 



SDBDDIR 


1 SDBXPFDB 1 


SDBNSDB 




SDBPSDB 


PSDB 


SDBKEYFD 


1 DMBFSDB 1 



DLZRRC10 - Batch Partition Control CSECT 



Extended Description 


Routine 


Label 


14. If a secondary list is present, 
its code is tested and referenced 
DMBs are resolved to DDIR 
pointers and placed in the list. 


DLZPINIT 


PROCSEC 


If an index user exit routine is 
present it is loaded if it hasn't 
already been loaded for a 
previous SEC. 






Write message DLZ266I if there 
is an invalid secondary list code. 






Write message DLZ012I if the 
user exit routine is not found. 






Write message DLZ263I if the 
SEC makes an invalid DMB 
reference. 







Extende^Description 



15. If this is Reload Restart, 
the parameter ID is ULR. 
Bypass checking whether 
the processing option should 
be changed to load or not. 

16. 



Routine 



Label 



PCBROUT 



CONSDBS 
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Figure 2-3.7. Block Loader and Relocator (Part 5 of 5) 

■■ INPUT 1 • 1 ff> PROCESS — i« 



SDB 



SCD 



SDBXFFSB 



SDBXFL 



SDBXPANS 



FSB 



SCDDLIUP 



SCDPDCA 



PSB Prefix 



FSBUVTYP 


FERT 


FSBIVA 


FERTRTEP 


FS8FERTA 


FERTNAME 


FSBLEN 


FERTPRES 



— > 17. Initialize field level sensitivity tables. 






FSB 




PDCA 1 


FSBIVA 




PDCAFERT 1 


FSBFERTA 


1 






FERT 


5 SCD 




FERTRTEP 


SCDCPY10 




FERTRTLG 


SCDDLIUP 


FERTPRES 











DLZRRC10 - Batch Partition Control CSECT 



DLZRRCOO 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



17. Includes FERT, FSB, and loading user 
field exit rcnitines. 




, 
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Figure 2-3.8. Control Program Initialization Completion (Part 1 of 3) 











PST SCD 1 






1 PSTWRK3 1 


SCDBFPL 






BFPL 


SCDDLIDN 






SCDDLIUP 


• 




Ibfpllen 1 








SBIF 






|SUBLEN 1 




















1 SUBPOOLN |— 
SCD 






1 SCDDBFPL — 






BFPL AC8XT 






BFPLSUBD 


1 dmbrbasn) "■ 






BFPLSUIN 








PST 


DMB 
Subpool 






PSTWRK1 


Directory 






PSTWRK3 



























From 
Figure 
Step 



.re 2-3 f 

'^4 



PROCESS ' 



1 -. 









1. Acquire storage for the buffer 
pool prefix and subpool informa- 
tion table. If subpools are not 
required, skip to Step 8. 



2. Analyze and interpret the 
following parameters in the 
DL/I parameter card: 

HDBFR HSBFR TRACE ASLOG LOG 



r OUTPUT! 



^ ISCDDBFPL I 



NXTPORT 



DL/I Control 
Card Analyze 
Routine 
2-3.9 



3. Format the buffer pool prefix. 



4. Store buffer sizes in subpool 
information table. 



SCDDBFPL 



SCDDLIPS 



.PPIP 



BFPI- 



SUBBDMBCT 



PST 



DLZRRC10 - Batch Partition Control CSECT 



Extended Description 






1. 


DLZCPIOO 


DLZCPIOO 
BFRPRNT 


2. Write message DLZ009I if number 




BFPNDCLR 


of subpools specified in the param- 




PRMSRET 


eter statement are not equal to the 






number of HDBFR statements. 






3. 




BFPREADY 


4. This step determines the size of the 




NODMMOV 


subpools. They are allocated, largest 






first, until the specified number is 






exhausted. Remaining DMBs requir- 






ing subpools are assigned evenly 






across all existing subpools. If you 






specified more subpools than 






necessary, an additional pool of 






512 buffer size is allocated for 






delete workspace. 






The subpool sizes are sorted so that 






the largest subpool appears first in 






the information table. 
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Figure 2-3.8. Control Program Initialization Completion (Part 2 of 3) 

■■ INPUT III I pa PROCESS mmmmmmmmmmmmmm 



BFPL 




BFPLSUBD 


SCDDLIDM 


BFPLSUIN 


SCDDLIDN 



SBIF 




SUBBFHD 


Idmbrbasn I 


SUBBFS12 




SUBDMBCT 


DDIR 



IDDIRADDR 



?glF 



5. Assign DMBs not previously 
assigned to subpools by HDBFR 
statements. 



BFPL 


SBIF 


bfplprad 


SUBBFNO 


BFPLSUIN 


SUBBFS12 



■ > 



SCD 



I SCDDBFPL 



6. Print subpool allocation 
statistics. 



7. Format buffer prefixes and 
allocate I/O buffers. 



-OUTPUT- 



ISUBDMBCT 



ACBXT 



DMB 

Subpool 

Directory 




8. Bypass DL/I load processing if 
they have once been loaded. 
Skip to Step 13. 



SYSLST 



SBIF 


SCD 


SUBUCPRE 


ISCDDLIUP 1 


SUBUCHAI 





BFFRADDR 



DLZRRC10 - Batch Partition Control CSECT 
Extended Pescription 



Routine 



Ubel 



5. Write message DLZ262I if buffer 
allocation error occurs. 

6. 

7. 
8. 


DLZCPIOO 


GREATPRO 

SPSTAT 

BFRINIT 

DLILOAD 
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Figure 2-3.8. Control Program Initialization Completion (Part 3 of 3) 

m INPUT II 



LOADTBL 



DLZDBHOO 
DLZDLROO 
DLZDLAOO 
DLZRDBLO 
DLZDLDOO 
DLZDDLEO 
DLZDHDSO 
DLZDXMTO 
DLZDLOCO 
DLZBNUCO 







DOS/VS 

Core Image Library 



DLZCPY10 

Q 

DOS/VS 

Core Image Library 




TRACSAV 



DOS/VS 

Core Image Library 



SCD 



SCDDBLNT 



.SCD 



SCDREENT 



Log I/O 
Area 



— ^ 



^ 



DLZRRCIO - Batch Partition Control CSECT 









k. 






DL/I Partition 




9. Load each DL/I facility module 
if required and not in SVA. 


1 






r ^^ 




K. 


DL/I Facility 
Modules 




SCD 








SCDDDBHO 

thru 
SCDDSEHO 


1 






I 






10. Load FLS module if needed. 




DL/I Partition | 


, .>i 






n 


¥ 

K 


DLZCPY 10 Module 








SCD 
ISCDCPYIO 1 






1 1 . Load the trace module it needed. 

^mijM DLZTRCAL 


_\ 


DL/I Partition 




' yi 








V 




Trace Module 








SCD 






17 Initial i7P DR Inaaina 


SCDDLIUP 


1 


^ BALR^ 






SCDTRACE 


DLZRDBLO 






1 


LOG IN IT 
Entry Point 


CY^ 


13. Write log schedule rec 


ord. 




DLZRDBLO 




LOG WRITE 
Only 
Entry Point 




A 




1 ^1 


14. Return to caller. 






V J 


: ^ 1 


=1 


n\ 


LOGOUT 






_l 



DLZRRCOO 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



9. 

1 1 . Issue macro DLZTRCAL TYPE=START 

following the load. Trace ID=X'FE'. 

Write message DLZ026I if initialization 
fails. 

12. Cancel if open error returned. 
Upon return, the entry points to 
DLZRDBLO in the 'Data Base Change 
Log Section' of the SCD (beginning 
with the SCDREENT) are initialized. 

13. The scheduled record ID='08'. 

14. Return is made to the instruction 
following the BALR to DLZPINIT. 




NUCLODUC 
L0AD9 

NOLOMOD 
PCCORET 
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Figure 2-3.9. DL/I Control Card Analyze Routine 



INPUT 



SCDDLIDM 



SCDDLIDN 



ODIRNUMB 



ICNTHDMB 



ISUBLEN 






DDIRADDR 



0MB 




DOS/VS 
Core 
Image 
Library 



Workarea 



From 

Figure 2-3.8 
Step 2 



I PROCESS I 



I 



^ 1. Interpret the HDBFR statement. 



2. interpret the HSBFR statement. 



^ 3. Interpret the JR ACE statement. I 

LOAD Macro (Directory Entry) 



:> 



4. Interpret the ASLOG statement 
^ 5. Interpret the LOG statement. 



P> 




To Figure 
2-3.8 
Step 2 



p OUTPUT- 





1 SUBPOOLN 1 1 CNTHDMB | 




SBIF 


DMB 

Subpool 

Directory 


SUBBFND 


SUBBFHD 











ACBBUFNI 



SID I 
Sll J 



I scdtrcnmTI tracsavT 



SCO 
I SCO DB LOP I 



DLZRRCOO 



Extende^Pescription 



Routine 



Th6 number of buffers/subpools 
specified in the HDBFR statement 
is set in ^he SBIF. Write message 
DL2019I if the number is greater 
than 32 or less than 2. Defauh is 2. 

The SUbPOOLN is incremented 1 
for every HDBFR statement. Each 
DMB is assigned by placing the 
relative subpool number (SUBPOOLN) 
it is being assigned to into a byte of 
the DMB SUBP DIR which corre- 
sponds to that DMB. The length in 
bytes of the DMB SUBP DIR equals 
the total number of DMBs. Write 
message DLZ008I if this DMB has 
already been assigned a subpool. 

CNTHDMB is a count of all the data 
bases assigned by the user in the 
HDBFR statements. 



NXTPORT 



NXTPORT 
HDBFR 



Ubel 



Extended Description 


Routine 




Write message DLZ008I if a DMB 
name is invalid. 






2. The user specified VSAM buffer 
allocations are set in the ACB for 
HISAM and INDEX DBDs. 




HSBFR 


Write message DLZ008I for an 
invalid DMB reference. Write 
message DLZ019I if valid values 
were not specified. 






3. Write message DLZ012I if module 
is not found. 




TRACE 


4. Write message DLZOl 51 if there 
is a syntax error. 




ASLOG 


5. Write message DLZ078I if UPSI 
card said no log. 




LOG 


Write message DLZ075I if invalid 
parameters. 
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Figure 2-4. Batch Nucleus (Overview) 

pi INPUT I 



mm PROCESS • 



DLZIWAIT 
Macro Call 



1. Batch Program Request Handier 
(See Figure 2-4.1) 

2. Partition ABEND Routine Entry 
(See Figure 2-4.2) 



DL/I 

Facility 

Modules 



3. DL/I Batch Wait Routine 




4. Branch instruction used if 
no logging. 




.OUTPUT- 



Extended Description 


Routine 


Label 


3. The DLZIWAIT macro is used by 


DLZIWAIT 


DLZIWAIT 


DLZRDBHOO, DLZDBH02 and 






DLZRDBLO. 






4. After the DLZBNUCO module is 


DLZBR14 


DLZBR14 


loaded, SCDDBLNT contains the 






entry point of this routine. 






If, however, batch initiaUzation 






(DLZRRCOO) determines that the 






DB logger is required, the entry 






point of the log initialization 






routine in DLZRDBLO is stored in 






SCDDBLNT. The log initialization 






routine changes SCDDBLNT once 






more to point to the log writer 






entry point. 






With this routine, the DL/I 






facility modules need not know 






if logging is required or not. 







Extended Description 



DLZBNUCO 

Routine Label 
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Figure 2-4.1. Batch Program Request Handler 

P INPUT ■■'■■■^'■"■■■'■■■■■■'■■^■^ See Note JP PROCESS < 



ppsTCA I . ►!. Establish SCD and PST addressability. 



User 

Parameter 

List 



SCDUPPER 



User 

Parameter 

List 



SCD 



PSTPCT2 



2. Determine if this is an utility block build 
call. If it is, go to Figure 2-3.5. If it is not, 
continue at Step 3. 



► 3. Verify call list and store in PST. 



4. Pass control to call analyzer to validate and 
perform DL/I function. 



Validate DL/I 
function 



PST 



PSTERCOD 



SCDCSECT - Batch Nucleus CSECT 



> 5. If no errors are detected upon return from 
DLZDLAOO, move data to specified area. 



6. If an error has occurred upon return from 
DLZDLAOO: 



p OUTPUT" 



DLZRRCOO 



Error Message 
Writer 

2-3.1 




DLZ ABEND 



Abnormal 
Termination 

2-4.2 

■ 



I PST 



PST 



User 
I/O Area 



DLZBNUCO 



Extended Description 



Routine 



Label 



Routine 



Label 



Note: This routine receives control from 
the language interface module (DLZLIOOO) 
linked with the application program. 

1 . When control is passed to the program 
request handler, register 1 must point 
to the user parameter list and register 
13 to the user save area. 

During the first entry to DLZPRHBO, 
the PL/I STXIT routine and savearea 
addresses from the PC option table are 
saved if the application program is 
written in PL/I. DLZPRHBO also 
sets/resets a switch (SCDLIPLI flag in 
SCD) on exit/entry to indicate whether 
current execution is in DL/I code or 
PL/I code. This is done to enable high 
level language debugging for PL/I to 
give diagnostic information if a program 
check occurs in PL/I code. 

Reset PC exits if this is a PL/I applica- 
tion. 



2. 



3. Write message DLZ260I if invahd list 



DLZPRHBO 



DLZPRHBO 



BYPLSTXT 
CNTLUP 



count. Write message DLZ261I if 
invalid parameter address. Then exit to 
DLZABEND. 

4. 

5. Write message DLZ 1051 if a checkpoint 
was taken. 

6. If a DL/I routine determined that DL/I 
should be terminated, go to the 
common error message routine to write 
an error message using the message 
number stored in PSTERCOD by the 
DL/I routine. 




MOVLUPBP 
PRHABEND 
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Figure 2-4.2. Partition ABEND Routine Entry (Part 1 of 2) 



. INPUT mmm 


SCO 


From Caller 
(See Note) 


4 

1. Establish SCD address. 








rP 






SCDDBLOP 






^2. Force write and close data 
base loa if reauired. 


^ 


r V >^ 






LOGOUT 


SCDDBLFW 






SCDDBLCL 


BALR 


DLZRDBLO 




Force Write 
Entry Point 














BALR 


DLZRDBLO 




Close Routine 
Entry Point 


L 








SCD 








r3. Close workfile if requirea. 




> 


SCDSIND2 




SCDDSEHO 




. 


1 




' 








SCDSIND2 


^■^ CLOSE Macro 

^4. Bypass unloading the buffers if 








ABIND 


-J 


P§T 


there was an error with the 
buffer handler; skip to Step 9. 

^5. Issue message DLZOOll. 










PGTFNCTN 




_ — _^ 


— ^ 


> 


**DL/I ABEND 
SAVE AREA** 




PSTRTCDE 


BALR 


DLZRRCOO 






PSTOFFST 


Error Message 
Writer 2-3.1 








PSTBLKNM 




PSTBYTNM 








PSJDATA 


► 6. Bypass unloading the buffers if 
VSAM is active;skip to Step 9. 






PSI 

1 PSTDSGA 

RPL 


ACBFXT 


1 1 DMBACBRP I" " 


: 


1 +X'23' 








_ 


^ 






^ 


■bh-hJ 



SCDCSECT - Batch Nucleus CSECT 
Extended Description 



Routine 



Label 



Note: The ABEND routine is invoked 
by the DOS/VS supervisor if (1) there 
is a program check or other ABEND 
situation found by DOS/VS, (2) if 
the job is being abnormally ended by 
a DL/I routine that determines DL/I 
should be abnormally ended, or (3) 
specifically by the buffer handler 
when there is an error concerning 
buffers. 

1 . If there is a program check, DLZABEND 
checks the switch (SCDLIPLI flag in 
SCD) set by DLZPRHBO to determine if 
program check occurred in PL/I code. 
If error occurred while in PL/I code 
(SCDLIPLI = 1), a return address is 
modified and a branch is made to PL/I 
STXIT PC routine. (The address of the 
PL/I STXIT PC routine was saved during 



DLZABEND 



DLZABEND 



Extended Description 



DLZBNUCO 

Routine 



Label 



the first entry to DLZPRHBO - see 
Figure 2 - 4.4, Step 1 .) After PL/I 
completes diagnostic information, 
processing returns to the modified 
address in DLZABEND. 

3. If the HD reorganization reload module 
(DLZURGLO) is running for either a 
standard reload or a reload restart, close 
the workfile generator file if it is open. 

4. 




ABLOGCBP 
RELODCBP 
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Figure 2-4.2. Partition ABEND Routine Entry (Part 2 of 2) 



■■ INPUT 



■ PROCESS 



OUTPUT- 




SCDCSECT - Batch Nucleus CSECT 



JExtendedDescrigtion 



7. 

9. The GETVIS macro is used to 
acquire storaige for DLZFSDPO. 
If there is not enough storage 
available tcf DLZFSDPO, only 
JDUMP output is put to SYSLST. 



Routine 



Label 



ABUNLD 
ABBYMSG 



Routine 



Ubel 
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Figure 2-5. Online Initialization (Overview) 

!■ PROCESS 



I INPUT 1 



From 
CICS/VS 
Overlay 
Supervisor 



1. Online initialization Start. 
(See Figure 2-5.1) 

2. PSB processing. 
(See Figure 2-5.2) 

3. DMB processing. 
(See Figure 2-5.3) 

4. Control program initialization. 
(See Figure 2-5.4) 

5. DMB open processing and online 
initialization completion. 

(See Figure 2-5.5) 



To 

CICS/VS 
Overlay 
Supervisor 



I OUTPUT ' 



CICS/VS 
Partition 



DLZOLIOOvrnp 



DLZOLIOOvrnp is the module 
identifier where 'v' is the version, 
V is the release, 'n' is an additional 
identification digit, and 'p' is the 
latest PTF number that has been 
applied. 



Extended Description 



Routine 



Label 



Routine 



Label 



1. 

2. 
3. 
4. 
5. 


DLZOLIOO 

PSBLOADL 

DDIRINIT 

DLZCPIOO 

DMBOPENA 
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Figure 2-5.1. Online Initialization Start 





From 
Figure 2-5 
Stepi 


SIP 




CSA 


1. 


SI PCS A 




CSAOPFLA 1 




ENDSAVE 


CSAOPFL 





LNGTHSAV 








CSADLI 1 














SIP 






ENDSAVE 






LNGTHSAV 




UUD/VO 

COM REG 














UPSI 




SCD 






SCDPRHED 








SCDLSTAD 


1 






1 








CSA 




PPT 




ICSAPPTBA 




PPTPI 






PPTTLR 


. 


SCD 




ACT 




ISCDACTRA 




ACTNM 






ACTPCNT 














SIP 


PST 1 


1 


ISIPCORE 




PSTLNGTH 1 






PPST 




1 


PPSTLEN 1 















I PROCESS « 



. Establish addressability to 
CICS/VS control blocks and SCD. 



■-OUTPUT- 



> 2. Initialize online nucleus. 



— > 3. Initialize ACT. 






MVCOM Macro 



I glgSAVAR 



INITSZSV 



INITUPSV 



_^VP_ 



CSA 



SCDIWAIT 



SCDERRMS 



SCDCSABA 



I CSADLI I 



DOS/VS 
COMREG 



PPTTLR 



4. Build temporary PST and PPST 
used during initialization. 



DLZOLIOO - Online Initialization CSECT 



SI POOR E 



CICS/VS 
GETMAIN Routine 




PPST 



PPSTECB 



PPSTCA 



PPSTID 



PSTSCDAD 



PSTSV4 



DLZOLIOO 



Extended Description 



Routine 



Label 



1 . Module identifier (DLZOLIOOvrnp) is 
defined here. 

Upon entry from the CICS/VS Overlay 
Supervisor, SIPBAR2 contains the 
overlay entry point, and SIPBARl 
contains the SIP common communications 
area. The current storage allocation infor- 
mation is saved in order to release storage 
if DL/I initialization fails. 

The DL/I systems contents directory is 
located from the CSADLI field in the CSA 
optional features list (CSAOPFL). 

Write message DLZ031I if program isola- 
tion is being used and either CICS/VS 
journalling is not being used or program 
name DFHDBP (dynamic transaction 
backout) is not in the PPT. 

Write message DLZ050I if the nucleus is 
not found. 

Write message DLZ064I if the nucleus is 
an invalid version. 

2. CSADLI is modified to point to the DL/I 
interface module address list, (DFHDLIAL 
DSECT), which is a table of entry points 
for the task initiation module and the task 
and system termination routines. 



DLZOLIOO 



DLZOLIOO 



NUCFOUND 



Extended Description 



Routine 



Label 



SCDSIND is initialized with bits 6 and 7 of 
the UPSI switch from the COMREG. The 
program request handler entry point is 
moved to byte 16 of the COMREG and 
temporary entry points are established for 
the error message routine and the DL/I wait 
routine. Also, SCDCWRK is initialized at 
this time to point to the beginning of the 
low end of free storage. 

3. Indicators are set in the CICS/VS PPT mark- 
ing the program eligible for DL/I services. 
They are set in the DL/I ACT entry indica- 
ting the program was located in the PPT. 

i Write message DLZ034I for each ACT pro- 
gram not in the PPT. Write message 
DLZ05 1 1 if any ACT program is not in the 
PPT. 

4. The PST and PPST are built directly after 
the initialization overlay high storage ad- 
dress. The save areas are chained and 
SCDCWRK is updated to indicate the new 
upward core allocation starting address. A 
dummy task ID of '0 1' is set in the PPST. 

Since a DL/I task with its associated PST is 
not yet involved, a temporary PST is needed 
to provide work space and save areas during 
the execution of this module. 




ACTLOOP 
PSTPPST 
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Figure 2-5.2. PSB Processing 

I INPUT 



■ ^ 1. LoadPSBs. 




PROCESS I 



I- OUTPUT- 



Module Load 
Routine 

2-5.6 



> 2. Initialize PDIR. 



► 3 Check PCBs sensitivity. 



llNITSW 



> 4. Move the PS I L and create the 
segment intent list mask. 



^ 



ISCDSIND 



Storage Acquisition 
Routine 

2-5.7 



DLZOLIOO - Online Initialization CSECT 
Extended Description 



Tl 



To 
Figure 2-5 
Step 3 



DSG 



Ipdirsila I Idsgdmbno] 



IPSILLNGH 



Routine 



Label 



1. The PDIR address is located in the SCD 
and each local PSB is loaded temporarily, 
directly behind the dummy PST. The 
PSIL entries that indicate the DMBs 
which may be used by this PSB are 
loaded along with the PSB. They are 
appended in front of the PSB, If PSB 
initialization is successful, it will be 
moved up prior to completion of 
initialization. 

Write message DLZ044I if the PSB is 
not founds 

2. Write message DLZ071I if the PSB is 
not version/modification 1.1 or later. 

3. All the SDBs for each PCB in a 
PSBLIST are tested for correct 
processings options. Indicators are set 
in the corresponding PDIR entry, PSIL 
entry, and the SCD to indicate intent. 
The corresponding SIL entry is found 
by using the offset value found in 
DSGDMBNO. 

Write message DLZ042I if a PSB 
accesses a HSAM DBD online. 



PSBLOADL 



PSBLOADL 



PDIRNPCB 



Extended Description 


Routine 


Label 


Write message DLZ043I if load 






sensitivity is detected. A PSB contains 






a PCB with PROCOPT=L which is 






invalid online. 






4. The PSILs are moved from the 




PDIRSMUV 


temporary position and as they are 






moved, the size of each entry is 






increased by the size of PSILSEGD 






to allow for the segment intent bits 






mask copy. For program isolation, 






non-exclusive intent bits are translated 






to read-only to allow simultaneous 






scheduling of update -sensitive segments. 






All the DSGDMBNOs are adjusted to 






show the new offset. Also, each 






PSILLNGH is adjusted to show each 






new PSIL entry length as each entry 






is moved. 






Return is made to Step 1 to repeat 




PSBNXT 


this routine for PSB until there are 






no more. 
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Figure 2-5.3. DMB Processing (Part 1 of 3) 
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SCDDLIPN 




SCDDLIDM 
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SCDDLIDN 


PSILDMBN 




PSILNTNT 



[CSAFCTBA J 


FCTDSID 




FCTDSOPN 


DDIR 


FCTDSTEL 


Iddirlen 1 


PSIL 



PDIROPTC 


SCDDLIPS 


PDIRSILA 


SCDDLIPN 




SCDDLIDM 


PSIL 


SCDDLIDN 


1 1 



PSILDIRA 



DDIRNUMB 



SCD 



SCDDLIDN 



DDIR 



DDIRSYM 



SYM H 



*" PROCESS I 

From I 

Figure 2-5 I 
Step 3 I 

1-* 



1. Initialize DMB dii-ectory. 



2. Build a DDIR if the DMB does 
not have one. 



Storage Acquisition 
Routine 

2-5.7 



3. Store DMB number in DDIR and 
PSIL. 



^ 4. Load and relocate each DMB. 



INITLODR 




Module Load 
Routine 

2-5.6 








DMBLOADR 


Build Associated 
DMB Control Blocks 
2-5.10 
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■-OUTPUT- 



PSILDIRA 



DDIR CODE 



PSIL 




DDIR 


PSILDIRN 




DDIRNUMB 1 









Extended Description 


Routine 


.„La,bel, , 


1. The PSIts aie scanned for DMB names 
and a DDIR f$ created for each unique 
DMB encountered. The address of the 
DDIR replaces the respective dmbname 
in each PSIL. 


DDIRINIT 


DDIRINIT 
DDIRFOND 


2. Write message DLZ045I if no 
CICS/VS FCT. 




DDIRBLD 


Write message DLZ046I if no FCT 
entry existed matching the dbdname. 






3. Write message DLZ049I if no valid 
DMBs are found. 




DDIRNUML 


4. Write message DLZ047I if DMB not 
in library. 




DMBLLUP 


Write message DLZ072I if the DMB 
is not ve rsion 1 . 1 or later. 







Extended Description 



DLZOLIOO 

Routine 



Label 



Write message DLZ048I if the 
randomizing module is not found. 

Write message DLZ049I if no valid 
DMBs are found. 







2* 28 Licensed Material - Property of IBM 



Figure 2-5.3. DMB Processing (Part 2 of 

INPUT III 



3) 



qjl 



DDIRADDR 



r— — — — .— t mvip ■ ! 

InUCAD I I DMBORG | ' 



HSBFR Entry 



IFFOO. 



EN I ' 



SCD 



OMBACBNM 



SCDEXT 



SCDEVSEX 



C> 



I PROCESS < 



5. Scan HSBFR entries in ACT. 



^OUTPUT- 



6. Adjust offsets in DMB to 
addresses for each valid DDIR. 

At end of DDIRs go to Figure 
2-5, Step 4 . 



7. Build VSAM RPL, Exit List, and ACBs. 



X 



GETCORE 



Storage 

Acquisition 

Routine 

2-5.7 



GENCB BLK=RPL Macro 
GENCB BLK=EXLST Macro 
GENCB BLK=ACB Macro 





ACBXT RPL 




DMBACBAD 


1 1 


DMBACBRP 


ACB 


DMBACBEX 








EXLST 




1 1 
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^jjRoujin^^^^ 




5. Write message DLZ029I if invalid 


DDIRINIT 


CHKHSB 


DBDNAME in HSBFR statement. 






The number of index buffers and 






KSDS buffers in the HSBFR entry 






is moved to the ACB extension. If 






the organization is HIS AM the number 






of ESDS buffers is moved to the 






second ACBXT. These values are 






used in building the VSAM ACBs 






(in Step 7). 






6. 




DMBRLUP 


7. If HIS AM, two sets of control blocks 




DMBOFFAJ 


will be buih. 




ACBADLUP 


Information obtained from HSBFR 






statements is used for the GENCB 






BLK=ACB BUFND=parameter and 






BUFNI parameter. If none was 






specified, the default of 3 index 






buffers and 2 data buffers is used. 







Extende^DescriDtion 



DLZOLIOO 

Routln^^^^Label 
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Figure 2-5.3. DMB Processing (Part 3 of 3) 
■■ INPUT ■ . . ■ ■■ PROCESS • 
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DMBLENTB 


DMBFDBA III 




DMBSECTB 


DMBVLDFG 




CPAC 


DMBSCTAB | 




DMBLST P 




DMBCPCSG 













^ . ^ g Relocate PSDBs and SEC list. 



SEC -HI 


DMB 


DMBSCDE 


Idmbsize 1 


DMBSECDB 


SCD 


DMBSECLN 


DMBSFLG1 


SCDDLIDM 


DMBXITAD 


SCDDLIDN 


DMBXDSDB 




DMBXDSC 


DDIR ^ 


. 


Iddirlen P* 




XMPRM 




Idmbxmxnm 




blVIBXMRES 




1 



■■OUTPUT- 



Module Load 
Routine 

2-5.6 



9. Process Secondary List if 
present for each PSDB. 



PSDB 



DMBFDBA 


dmbcpep 


DMBSCTAB 


DMBCPRES 



Module Load 
Routine 

2-5.6 



Return to Step 6. 



PSDB 



1 DMBLST 1 


DMBSECDB 




DMBXITAD 


XMPRM 


DMBXDSDB 


DMBXMXEP 


DMBXPSDB 


DMBXMRES 
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Extended Description 


Routine 


Ubel 


8. The segment compression modules 
for each PSDB is loaded if present. 


DDIRINIT 


PSDBROUT 


Write message DLZ073I if the 
compression module is not found. 






9. If a secondary list is present, its 
code is tested, and referenced 
DMBs are resolved to DDIR pointers 
and placed in the list. 




PROSEC 


If an index user exit routine is 






present it is loaded. 






Write message DLZ013I if the SEC 
makes an invalid DMB reference. 






Write message DLZ266I if there 
is an invalid secondary code. 






Write message DLZ074I if the 
indexing module is not found. 
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Figure 2-5.4. Control Program Initialization (Part 1 of 3) 



m INPUT 



SCD* 




SCDbLIPN 


PDIRADDR 


SCDDLIPS 


PDIRPSBL 




PDIRZWA 




PDIROPTC 
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PSB 



PSBSEGWK 



rBL. 



f- PROCESS I 

From I 

Figure 2-5 I 
Step 4 I 

^4 



P OUTPUT- 



> 



1. Control program initialization 
entry. 

2. Acquire storage for PSB and 
index work area. 



GETCORE 



Storage 

Acquisition 

Routine 

2-5.7 



3. Move PSB to permanent location. 

4. Initialize PSB. 




^ 



PSB Initialization 
Routine 

2-5.11 



5. Return to Step 2 for each PDIR. 



6. Load action modules as SLC 
says if requested. 



Storage Layout 

Control Routine 

2-5.8 



PDIR ' PSB 


|PDIRADDR 


PSBXIOWK 


SCD 


PSBSEGWK 


PSBNDXWK 


SCDCWRK 


PSBIOAWK 


1 
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Extended Description 


Routine 


Label 


1. 


DLZCPIOO 


DLZCPIOO 


2. The address of the storage acquired 
is used as the 'move-to' address in 
Step 3. 




PCCORET 
PSBMLUP 


3. Once the PSB is moved, its new 
address is stored in the PDIR and 
the old PSB address becomes the 
new code upper boundary address 
(upward core allocation starting 
address), SCDCWRK. 






4. Write message DLZ056I if PSB 
fails to initialize. 




PSBNWA4 


6. If there is an SLC name at the 
nucleus address +8, the SLCLOAD 
routine loads the action modules. 




DLILOAD 
NUCLDNJL 


Write message DLZ032A and termi- 
nate DL/I initialization if CICS/VS 
journalling is to be used but there 
is no system log entry (X'Ol') in 
the JCT. 







Extended Description 



DLZOLIOO 

Routine Label 
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Figure 2-5.4. Control Program Initialization (Part 2 of 3) 
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^ 
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DUTPUT-— 

SCD 




^ 7. Allocate buffers if required. 




scnnBFPL 












BALR 


BUFALLOC 




Buffer Allocation 
Routine 

2-5.9 










SCD 
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SCDDDBHO 


SCDDLIRE 






SCDDLICT 


► 8. If the number of DDIR entries does nol 


■-'" — ■ ^ 


SCDDBLNT 


equal 0, then load Action Modules. 






SCDDLIDR 


BALR 


INITLODR 




SCDDLIIN 


SCDDHDSO 


Module Load 
Routine 
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SCDDXMTO 


SCDDLICL 














^ 9. Initialize data base logging 
if not suDoressed 




> 


R13 


SCDELECB 


— fc-^ 


PSTSV1 










11 


BALR 


DLZRDBLO 










Logger 
Initialization 




or 




BALR 


DLZRDBL1 




CICS/VS Journal 
Logger Initialization 


If Logging is sup 
to Figure 2-5, St 


pressed go 
ep 5. 









Extended Description 



7. If there is not a buffer pool prefix 
address in the SCD indicating the 
buffers have already been allocated 
and the- number of subpools required 
is not zero, go allocate the buffers. 

8. If CICS/VS journaling is supported, 
DLZRDBLO in the NUCLODTB is 
replaced with DLZRDBLl. 

Any module already loaded by 
SLCLOAD will not be reloaded. 

Write message DLZ055I if a DL/I 
facility module is not found. 

9. SCDDBLNT is loaded with the entry 
point at the proper logger initialization 
routine (DLZRDBLO or DLZRDBLl). 
If logging was suppressed SCDDBLNT 
will continue to point to a branch 14 
for immediate return to caller. 



DLZCPIOO 



Routine 



BFRALOC 



DLILOAD 



.Label 



NUCLODNX 
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Figure 2-5.4. Control Program Initialization (Part 3 of 3) 
INPUT I ■■ PROCESS ---i" 



SCDDBLAS 



SCDSIND SCDEXT 

I SCDELECB| 



10. 



Attach the asynchronous logger 
if the CICS/VS journal logger 
is being used. 



ATTACH Macro 



If error: 



DLZRDBL1 



Log Close 
Routine 



r- OUTPUT ■ 



To 
Figure 2-5 
Steps 



DLZOLIOO - Online Initialization CSECT 



Extended Description 



Routine Label 



10. Write message DLZ006I if the 
asynchronous logger did not 
successfully attach and go 
close the log. 

The address list for the 
asynchronous portion of the 
database logger and its save 
area address are located in 
the database log load module 
just prior to the entry point. 
If the attach fails, the 
database log is closed and 
the system continues without 
log support 


DLZCPIOO 


NUCLODNX 



Extended Description 


Routine 


Label 
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Figure 2-5.5. DMB Open Processing and Online Initialization Completion 
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Figure 2-5 I 
Step 5 I 



1. Determine if the DMB can be 
opened. 



I OUTPUT- 



CSA 



CSAPLBA 



SIPOSUP 



CICSAVAK 



^ 2. Issue OPEN ALL call to DL/I 
open/close. 



^ .DPIR 



DDIRCODE 



DL/I Open /Close 
Module 



3. Scan DDIR for successful 
completion of open call. 



^ 4. Write message DLZ053I - 
DL/I Initialization Complete 



Write message DLZ054I - DL/I 
Initialization Error Detected. 



Console Put 
Routine 



SCD PST 1 


|SCDSIND2 1 


PSTFNCTN 




PSTDSGA 
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PSTSV1 










DDIR SCD 1 


1 DDIRCODE 


|sCDSIND2 1 1 









SCD LOWER 
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Extended Description 


Routine 




1. If all PSBs are remote, do not attempt 


DMBOPENA 


DMBOPENA 


OPEN. 






2. 




DMBSCNX 


3. Write message DLZ057I if an open 




DMBSCLP2 


error occurred attempting to open a 






DMB. 






4. During the course of initialization an 




EXITOVL 


error can also cause a direct return to 






CICS/VS with message DLZ052I - Ini- 






tialization Failed. 








V 
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Figure 2-5.6. Module Load Routine. 
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1. Load Directory Entry. 



LOAD Macro 



2. If phase SVA resident go to 
Step 5. 



3. Acquire storage for requested 
phase; either A or B : 



IZ 



i> 



A. 



BALR 



GETCORE 



Storage Acquisition 
Routine 
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"^^ B. Low Address space. 



^> 4. Load phase. 



LOAD Macro 



5. Set phase entry point. 



i- OUTPUT! 
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DOS/VS 
Directory 
Entry 
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Storage Requested 



Entry Point 
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SCD ^ CICS/VS 

I Partition 



Loaded 
Phase 




Extended Description 


Routine 


Label 


1 . Caller passes requested phase name 
in a work field BLDLN. The output 
of the load call is a DOS/VS 
directory entry at BLDLVSA. 


INITLODR 


INITLODR 


2. 




BLDLFND 


3. Amount of storage is deter- 
mined by: 






Number of Library Block 
X 1024 + Number of Bytes 
in Last Block. 






INITSW indicates whether 
caller wants low address space 
or CICS/VS to acquire the space. 






B. Write message DLZ058I if 
insufficient core to initiaUze 
DL/I. 







Extended Description 


Routine 


Label 


4. If low address space is requested 




LODRLOD 


by the caller SCDCWRK is used 






as the load address. After the 






load macro the end address of the 






module will be in the DOS/VS 






COMREG. SCDCWRK is updated 






with this end address to show the 






new low end of free storage. 






5. The phase entry point is passed 




LODROK 


back to the caller in register 1 . 
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Figure 2-5.7. Storage Acquisition Routine 



INPUT 



From I 

Caller I 

H 



SCD 

I SCDCWRK 



imm^ 





f 










> 
> 


1. Align the storage requested to 
specified alignment desired. 


R1 R7 


^ ^ r.:s 


1 }/Amm 




»»- 






CICS/VS Partition 


2. Acquire storage from CICS/VS; 
either low or upper storage. 




either: 


:a 


^T^ 






*•' 


SIPCORE 




CICS/VS SIP 
Storage Routine 


or: 








RO 1 

R1 


1 


WM '""''''"= 


3. Return storage address in 
R1 to caller. 




R1 




>l 1 




,- 




Caller 





DLZOLIOO- Online Initialization CSECT 



Extended Description 


Routine 


Label 


1 . If alignment is desired the number 
of additional bytes needed to align 
is calculated and put in R7. 


GETCORE 


GETCOREA 
GETCORE 


Register 1 is updated to show the 
new total number of bytes required. 






2. Write piessageDLZ058I if insuffi- 
cient storage to initialize DL/I. 




BYCRALGN 


The SLCOPT flag byte (moved to 
SIPCORE from a storage layout 
control table entry) is used by 
CICS/VS GETMAIN routine. If we 
are doing our own alignment SLCOPT 
is examined to determine whether 
low or high storage was desired by 
the user. 






3. The load point returned in RO by 
Step 2 is adjusted by the additional 
bytes in R7 to get the requested 
alignment. This needs to be done 
only if low storage was acquired. 







Extended Description 



DLZOLIOO 

Routine Label 




\ 
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Figure 2-5.8. Storage Layout Control Routine 



■■ INPUT 



SIP 1 


SIPBLDL 


1 NUCAD I 


SIPLDER 









SLC 


PST 


SLCMODNM 


|PSTWRK3 1 


SLCOPT 





>m p PROCESS. 

T I 

'P6 I 



From 
Figure 
2-5.^ 
Step 



T 



SLCMODNM 



SLCLEN 



I NMgtrQDTPl 



.5iL. 
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1. Build the storage layout control 
table. 



BALR 



CICS/VS Build 
Routine 



" ^ 2. Load the table. 



BALR 



CICS/VS Loader 
Routine 



^ 3. Determine if the SLC entry is 
for the buffer pool. 



Buffer Allocation 
Routine 



> 4. Load each module in the SLC 
table and set the entry points 
in the SCD. 



Module Load 
Routine 



5. Update the online free storage 
beginning pointer. 



■- OUTPUT! 



Os 



ISILISTID 



>0 




Figure 2-5.4 
Step? 



SCDDLIDR 



SCDDLIIN 



SCDDHDSO 



SCDQUEFO 



SCDQUEFW 



SCDCPY10 



> 





Routine _ 




1. 


SLCLOAD 


SLCLOAD 


2. Write message DLZ030I if the loaded 






SLC table does not begin with 






*DLZSLC*. 






The table is loaded directly after 






module DLZOLIOO. 






3. The user would have specified the 




SLCLUP 


DLZSLC statement with 




SLCBUF 


MODULE=BUFFER. 






4. As each module in the SLC table 




SLCLUP 


is loaded, the need to load flag is 






turned off so that upon return to 






Figure 2-5.4 these modules will not 






be reloaded. 






The SLCOPT for each module, as it 






is loaded, is moved to SIPCORE for 






use by the GETCORE routine. 







Extended Description 



Routine 
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Figure 2-5.9. 

pi INPUT ■■■■i 


Buffer Allocation Routine (Part 1 of 2) 














From 

Figure 2-5.4 
Step 7 or 
Figure 2-5.8 
Steps 

Li 


4 












^ . 1. Determine how many subpools 
the user wants. 


_J 


..SCO 




^IsrnnRFPi 1 


1 


1 M 


^ 








> 2. Acquire aligned storage for buffer 
pool prefix, subpool information 




SCD SBIF 1 


SCDDBFPL 


JSUBLEN 1 


SCDDLIDN 












tables, and subpool directory. 


_J 


1 COREADJ 1 


SIP 


BFPL 




^ 


1 SIPCORE 1 


OTBFR IIbFPLLEN 1 


J ^ 












BALR 


GETCOREA 








Storage Acquisition 
Routine 


SCD BFPL 
















^ 3. Format the buffer pool prefix. 


"!>J|SCDDBFA 1 


BFPLID 




(^— 1 


. ' 


1 






BFPLROCO 






BFPLSUBD 






' 


BFPL 
1 BFPLSIUN 1 






1 NUCAD 1 




SCD 


SCDDLIDM 


DDIR 


► 4. Move information from ACT into 
the buffer pool tables. 




SBIF 


DMB Subpool 


SCDDLIDN 


DDIRSYM 






1 SUBBFND 1 


Directory 






i 








ISUBPOOLN 1 


DDIRCODZ 




HDBFR Entry 








1 1 






PST BFPL 1 


PSTWRK1 


BFPLSUBD 


> 5. Store buffer sizes in the 

subpool information tables. 




SBIF PST 


PSTWRK3 


BFPLSUIN 






SUBBFSIZ 


PSTWRK1 1 


ACBXT SCD 


1 




SUBDIVIBCT 


PSTWRK3 1 




1 


1 dmbrbasnI 


1 SCDDBFPL 1 








DMBSubpool 
Directory 
















1 



DLZOLIOO- Online Initialization CSECT 



Extended Description 






1 . Buffer allocation is done by this 
subroutine. The required number 
is set to the user specified total 
in the DLI parameter if the user 
number is smaller than required. 


BUFALLOC 


BUF ALLOC 


Write message DLZ060I followed 
by DLZ061A if buffer pool 
allocation is missing or invalid. 






2. 




BFPREADY 


4. Write message DLZ029I if there 
is an invalid DBDNAME in 
HDBFR entry. 




SCANHD 









5. At this point the size of the subpools 




PRPEND 


are determined. They are allocated, 






largest first, until the specified number 






is exhausted. Remaining DMBs 






requiring subpools are assigned evenly 






across all existing subpools. If the 






user specified more subpools than 






necessary, an additional pool of 512 






buffer size is allocated for delete 






workspace. 






The subpool sizes are sorted so that 




SUBTSHFL 


the largest subpool appears first in the 






subpool information table. 
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Figure 2-5.9. Buffer Allocation Routine (Part 2 of 2) 

■■ INPUT aMH-iHiMiaiaMMMMif !■ PROCESS < 



BFPL 



BFPLSUBD 



DDIR 



Iddiraddr 



S 



SUBBFSIZ 



SUBDMBCT 



DMB 

Subpool 

Directory 



> 



SBIF 




SUBBFIStO 




SUBBFSIZ 


|0PTBFR 1 


1 



6. Assign DMBs not yet assigned to 
subpools by HDBFR statements. 



7. Format buffer prefixes and 
allocate I/O buffers. 



Get aligned core for the 
buffer prefixes. 



Storage Acquisition 
Routine 

2-5.7 



B. Get aligned core for the 
buffers. 



BALR 



Storage Acquistion 
Routine 

2-5.7 



C. Set buffer addresses in the 
buffer prefix. 






SBIF ACBXT 


1 SUBDMBCT 1 1 DMBRBASN 1 


DMB Subpool 
Directory 


1 1 






SBIF SIP 


SUBUCPRE 


1 SIPCORE 1 


J SUBUCHAI 








1 COREADJ 1 




BFPL 




|bfplprad 1 










SIP 


1 COREADJ IISIPCORE | 




BFFR -^= 


1 


BFFRSW 


^ BFFRADDR 







DLZOLIOO - Online Initialization CSECT 



Extended Description 


Routine 




6. Assign DMBs by corresponding control 


BUF ALLOC 


GREATPRO 


interval sizes. Each DMB is assigned by 






placing its DDIR position pointer into 






the subpool directory. 






It is possible to get message DLZ262I 






if there is a buffer allocation logic 






error. 






7. The user specified number of buffers 




BFRINIT 


is allocated per pool; default is 32. 






A. 




ACCLOOP 


B. 




BFFRFRMT 


C. 




BFRSPLUP 





Routine 




■ 







Licensed Material • Property of IBM 2-39 



2-5.10. Build Associated DMB Control Blocks 



INPUT 



SCD DMB 


ISCDDLIDM 1 


DMBORG 




DMBDALGR 


DACS 




IomboanmeI 










PROCESS ' 



1. Load randomizing module if 
organization is HDAM. 



Module Load 
Routine 

2-5.6 



^ 2. Determine if buffer pool space 
is required and set indicators. 



"Vf 




DLZOLIOO - Online Initialization CSECT 



Extended Description 



OUTPUT! 



■ DMB 



.PAC? 



I DMBDALGR 11 DMBDAEP 



ACBXT PST 


1 DMBRBASN 1 


PSTWRK1 




PSTWRK3 







1 . Before loading the randomizer a 
cheelc is made with all currently loaded 
randomizers. If one with the same 
name as the one we are loading is 
found, the entry point is resolved 

and the actual load is bypassed. 

If the randomizing module is not 
found, the DDIR is updated to 
show DMB initialization failed. 

2. If buffer pool space is required, 
the size of each control interval 
rounded to the next multiple of 
512 is indicated in PSTWRKl for 
hter allocation of the buffer pool. 



Routine 



DMBLOADR DMBLOADR 



Label 



GETBUFRS 



Extended Description 



DLZOLIOO 

Routine Label 




^ 
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Figure 2-5.11. 


PSB Inltializat 




PDIR 


PSB 


Ipdiraddr 1 


PSBXPCB 




PSBCODE 


PSBLIST 




PCB 

Idpcbjcb "" 


JCB 


SDB -z: 


Ijcbsdbi 1 


SDBSYM 




SDBPARA 


SDBDSGA 


SDBTARG 


SDBKEYFD 


SDBXFL 


SDBXPANS 


SDBEND 








1 PCBEND (80) 1 


PSB 
1 PSBXPCB 1 





■■ PROCESS I 



From 

Figure 2-5.4 
Step 4 



> 



1. Initialize and relocate PSB 
pointers. 



2. Relocate the PCB and JCB 
pointers. 



-OUTPUT- 



w> 



^ 3. Initialize all SDBs belonging 
to a particular JCB. 



PCB 


JCB 


Idbpcbjcb I 


JCBLEVTB 


JCBLEVND 


JCBSDB1 


JCBSDBND 







: ^ 4. Test for the end of the PCBs 
in the PSBLIST. 

If not the end, return to Step 1. 



§Pg 



SPPPAPA 



SDBDSGA 



DLZOLIOO - Online Initialization CSECT 
Extended Description 



Routine 



Label 



1. 

2. 

3. 

4. The pointer to the PSBLIST is 
bumped to the next PCB pointer 
entry and processing returns to 
Step 1 if we are not at the last 
PCB. If the index PCB exists and 
has not been relocated return to 
Step 2. 


PSBRELO 


PSBRELO 
PCBRLLUP 

PCBPLIP 

SDBRELO 

NPCBCK 



Extended Description 


Routine 


Label 
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Figure 2-5.11. PSB Initialization Routine (Part 2 of 2) 

m PROCESS -■ 







PDIR 


PSB 




, PDIRADDR 


1 PSBLIST 1 




PDIRCODE 




PDIROPTC 










PDIRSILA 


DBPCBJCB 1* 




PSIL 


JCB 




PSILDIRA 


1 JCBPRLEN 1 




PSiLDIRN 
















DSGDMBNO 




DSGDCBNO 




DSGINDA 














onn 


SDBXP 








SDBF3 


ISDBXPFDB 1 




SDBNSDB 


JCB 
|JCBSDB1 1 




SDBPARA 





SDBDSGA 




SDBKEYFD 




SDBXFL 


DSG 




SDBXPANS 




SDBEND 




SDBXFNB 


JDSGDMBNO | 




SDBXFFSB J 


PSB 




DMB 




PSBCODE 




Idmblentb I 




PSBFRTA 
















PERT 






FERTNAME 




FERTPRES 











5. Connect data bases to PCBs. 



6. Connect SDBs to PSDBs. 



7. Chain Field Exit Routine (FER) 
entries and relocate FSB pointers 
if PSB has field level sensitivity. 




DSG 


^ DSGDCBA 




DSGDMBNO 




SDB SDBXP 


SDBDDIR 


1 SDBXPFDP 1 


SDBPSDB 




SDBKEYFD 






1 


' PDCA 

[PDCAFERT 
FSB 




FSBIVA 




FSBFERTA 


PERT 

[fertrtep 







DLZOLIOO - Online Initialization CSECT 



E)aende^Descriptlon 



5. For each DSG belonging to a PCB, 
the offset to the corresponding PSIL 
is found by the offset in DSGDMBNO. 
The DMB number at the corresponding 
DMB to this PSIL is then moved to 
DSGDMBNO. Thus, data bases 
specifically used for this PCB are 
connected. 

7. Return to Step 4 to process the 
next PCB in the PSBLIST when 
there are no more SDBs. 



Routine 



PSBRELO 



Label 



PCBROUT 



CONSDBS 



Extended Description 



DLZOLIOO 

Routine Label 



I 
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Figure 2-6. Online Nucleus (Overview) 

INPUT II 



I PROCESS ' 



1. DL/I pre-scheduling and PSB 
scheduling routines. 

(See Figure 2-6.1) 

2. System abnormal and normal 
termination routine. 

(See Figure 2-6.2) 

3. Task termination routine. 
(See Figure 2-6.3) 

4. Start-of-task record writer. 
(See Figure 2-6.4) 

5. Sync-point record writer. 
(See Figure 2-6.5) 

6. Online program request handler. 
(See Figure 2-6.6) 

7. Remote scheduling call interface. 
(See Figure 2-6.15) 

8. Remote data base call interface. 
(See Figure 2-6.16) 

9. Remote term call interface. 
(See Figure 2-6.17) 

10. Online error message routine. 
(See Figure 2-6.7) 

11. Online wait routine. 
(See Figure 2-6.8) 

12. VSAM asynchronous error processor. 
(See Figure 2-6.9) 



•OUTPUT! 



Extended Description 


Routine 


Label 


1- 


DLZODPOO 




2. 


DLZODP03 
DLZODP02 




3. 


DLZODPOl 




4. 


DLZODP04 




5. 


DLZODP05 




6. 


DLZPRHOO 




7. 


DLZISCOO 




8. 


DLZISCOl 




9. 


DLZISC02 




10. 


DLZERMSG 




11. 


DLZOWAIT 




12. 


DLZOVSEX 





Extended Description 



Routine 



Label 
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Figure 2-6.1. DL/i Pre-scheduling and PSB Scheduling Routines (Part 1 of 7) 



INPUT 



SCD PPT 


SCDMXTSK 


1 PPTPI 1 


SCDCMXT 




SCDACTBA 


ACT 




ACTNM 




ACTPCNT 


ACTBLEN 







ITCADLII 



SCDSIND 



PDIR 



[•PDIRSILA 



PSiL 



PDIR 
DDIRCODE I 



m PROCESS ' 
From I 

CICS/VS I 
DFHPCP I 



From Figure 
2-6.13 Step 
1 or Figure 
2-6.12 Step 
8 



> 



DL/I Pre-scheduling R ojjt i ne 
1. 

A. Locate task's application 
control table entry. 



■-OUTPUT- 




PSB Scheduling Routine 



If this is a system schedule 
call go to Step 7. 



2. Suspend the task if at maximum 
task. 



TASKSUSP 



Suspend Tasl< 
2-6.14 



3. Scan the PSILs to determine if 
any referenced DB is stopped. 




> 



SCD 



SCDADSKC 



SCDSIND 



SCDTSKCT 



TCA 


System 
TCA 


TCAFCTR 


TCADLTR 


Itcadlii 1 


1 



DLZODP - Prescheduling and Scheduting CSECT 



Extended Description 



Routine 



Label 



1. A. Nucleus identifier 

(*DLZNUCXX*0140) and 
module identifier (DLZODPvrnp) 
are defined here. The level format 
is vrnp; where *v' is the version, 
'r' is the release, 'n' is an addi- 
tional identification number, and 
'p' is the latest PTF number that 
has been applied. 

This step checks the authoriza- 
tion of the CICS apjplication 
program to use DL/L If the 
program name is not located in 
the ACT an error indicator is 
turned on in the TCA 
(TCADLISE).IftheACT 
search is successful the ACT 
entry address is placed in the 
system TCA and DL/I scheduUng 
initiated indicator (TCADLISI) 
is turned on. 

If trace is enabled an initial 
scheduling trace entry with the 
I1>X'F8*, type of request=X'DO' , 
is made showing the current and 
absolute maximum task counters 
and the PPT address. 


DLZODP 


DLZODP 
DLZODPOO 



Extended Description 



Routine 



Label 



1 . B. TCADLPAS indicates a system 
schedule call (PCB,SYSTEMDL). 

3. Indicate a scheduling error and 
return to caller if the DB is stopped. 

4. There is a trace table area within this 
module. Each entry is 2 bytes in 
length and the last entry is the newest. 

The PPST number of the acquired 
PPST is put in the trace table at this 
time along with an 'S' to indicate a 
scheduling entry. 




TASKSCHD 
DLZSCHDL 

CHKLOPl 



\ 
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Figure 2-6.1. DL/I Pre-scheduling and PSB Scheduling Routines (Part 2 of 7) 
INPUT III I ■- PROCESS . 



PPST 


SCD 


Ippstcf 1 


SCDPPSTS 




SCDPPFF 



I I 



TCA 




SCD 


Jtcatcdp 




SCDPPAF 


PPST 


SCDPPSTS 


PPSTCF 




PPSTCB 


PPSTTSKP 






1 



:► 



Parameter 
List 



PDIROPTC 



System TCA 



TCAPCTA 



RPST 



System TCA 



[ TCADLII ^ 



> 



4. Acquire free PST prefix and 
update free PPST chain pointers. 



5. Set PPST in active chain 
according to task dispatching 
priority. 



6. Indicate this is a MPS 

scheduling call if the function 
call is PCBM. 



7. Acquire and initialize task 
PST storage. 



DFHSCTYPE=GETMAIN 



8. Return if this is a system 
schedule call. 



Set up remote scheduling call 
if PSB on remote system. 



DLZISCOO 



Remote 
Scheduling 
Interface 
2-6.15 



•■OUTPUT! 



SCD TRACETAB 


1 SCDPPFF 1 












PPST 




S' 


1 PPSTCB 1 


1 










To 

Figure 2-6.11 

Step 1 



PPST 



PPSTCF 



PPSTTSKP 



PPST 



PPSTIND 



SCDPPAF 



System 
TCA 


PPSTCA 1 


TCADLII 




PCADLIPA 


PST 




PSTPREAD 


TCA 


PSTSCDAD 


Itcascnb I 


PSTPSB 




PSTPCBGM 


RPST 


PSTSV1 


1 


PSTSV2 




PSTSV3 


RIB 


PSTSV4 


1 


PSTSV5 




PSTSV6 




PSTSV7 







DLZODP - Pre-scheduling and Scheduling CSECT 



Extended Description 


Routine 


Label 


5. 


DLZODP 


TASKPPAC 


6. Set bits in PPST (PPSTMPS and 
PPSTMSDL) to indicate task is 
an MPS job. 




TASKPABV 


The parameter list was initialized 
by GETPSBN before calling this 
resource scheduling routine. 






7. If PSB to be scheduled is on a remote 




TASKPSTG 


system, acquire storage for RPST and 
RIB also. 






8. TCADLPAS indicates a system 
schedule call (PCB,SYSTEMDL). 




TASKPSTL 


PDIRREM indicates PSB is remote. 







Extended Description 



Routine 



Label 
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Figure 2-6.1. DL/I Pre-scheduling and PSB Scheduling Routines (Part 3 of 7) 
pi INPUT I f PROCESS 



PDIR 


DDIR 


Ipdirsila 


Iddircod2 I 


PSIL 




PSILDIRA 


PSILLNGH 





BCD 



SCDPPSTS 


PPSTCF 


SCDPPAF 


PPSTIND 


SCDSIND 


ppstpdir 




PPSTTSKP 



PDIR 


BCD 


PDIROPTC 


SCDDLIPS 


PDIRLEN 


BCDDLIPN 



9. Determine if the PSB is in scheduling 
conflict with itself. Go to Step 31. 



10. Determine if one of the PSBs 
DMBs is held exclusively by 
another PSB. Go to Step 29. 



11. Check intent against all tasks 
suspended due to intent conflicts. 



■■OUTPUT- 



Intent Check 
Routine 



12. Check intent against all 
scheduled tasks. 



BCHDPDIR 



Intent Check 
Routine 



>f PDIR 
Address 



DLZODP - Pre-scheduling and Scheduling CBECT 



Extended Description 


Routine 


Ubel 


9. If PSB is in use and is update 
sensitive or exclusive intent, go 
to Step 32 and wait for tliis task. 
If program isolation is active skip 
checks for update sensitivity conflicts. 


DLZODP 


SCHDNTCK 


10. If any referenced DB is stopped, 
return a scheduling error to caller. 




SCHDCKSI 


1 1 . Determine if one of the PSBs segments 
is being updated by another PSB that 
is v^^aiting for intent and is at the same 
or higher task dispatching priority. 




SCHDFCLP 


The PDIR address of the task being 
checked is passed to the intent 
check routine at SCHDPDIR. 






12. 




SCHDPACT 



Extended Description 


Routine 


Label 









^ 
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Figure 2-6.1. DL/I Pre-scheduling and PSB Scheduling Routines (Part 4 of 7) 

■> INPUT ■ I ■■ PROCESS N I . I i iiii 



y -> 



IRA J 



PSILNTNT 



PDIR |~ 

I PDIROPTC I 



TCA 

Itcascsa "I 



3L 



PSB 



PSB 
I PSBLIST ' 



] 



DBPCBJCB 



JCB K 



DLZODP - Pre-scheduling and Scheduling CSECT 



13. Schedule the PSB. 



^ 14. If not read only intent or update 
intent with program isolation 
active, go to Step 21. 



~ ^ 15. Acquire storage for duplicate 
PDIR, PSB, and work areas. 



-isl 



DFHSCTYPE=GETMAIN 



> 16. Move PDIR, PSB, and allocate 
work areas. 



17. Relocate PCB pointer in the 
PSBLIST. 



18. Relocate PCB and JCB, and 
clear LEVTAB. 



•OUTPUT! 



PPST 



BCD 



IPPSTEXCI 



SCDSIND 



SCDNTWC 



DDIRCNT 



DDIRPPST 



TCA 

Itcascnb 



PPST 



JCBSDBI 



Extended Description 


Routine 


Label 


13. The waiting-for-intent bit (PPSTSI) 
is turned off it it is on and the wait 
count is decremented (SCDNTWC). 
Turn on DDIREXCL if the PSB 
requires DB exclusive control. 


DLZODP 


SCHDESCD 


Turn on the PSB scheduled flag 
(PDIRSCHD). 






14. If the PSB scheduled flag (PDIRSCHD) 
is already on, it must be read only. 






15. Task suspend is possible because 

of unconditional CICS/VS GETMAIN. 




TASKDUPP 


17. 




SCHDDPL 


18. 




SCHDDPGO 



Extended Description 


Routine 


Label 


- 
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Figure 2-6.1. 


DL/i Pre-scheduling and PSB Scheduling Routines (Part 5 of 7) 






_ r\t ITPI IT ^^^H 






1 


> 






SDB 




JCB SDB -= 


-, 


JCNSDB1 


SDBPARA 




SDBNSDB 


JCBSDBND 


SDBDSGA 


19. Relocate SDBs. 


_J 


SDBPARA 




SDBTFLG 


:>i 


SDBDSGA 


SDBTARG 


n 




SDBTARG 


SDBKEYFD 


20. Return to Step 17 for each PCB 
until there are no more. 


SDBKEYFD 


SDBXPANS 


SDBPOST 


SDBEND 


SDBPOSC 








SDBPOSN 




SDBXPANS 


1 




PST PDIR 


f 


PSB 


TCA 


1 PSTPREAD II PDIRADDR 




Ipsbpst Itcadlpcb ill 




SDB 


PCB 1 


1 PSBLIST 1 1 DBPCBJCB 




> 


21. Connect user's PSB with the 
data base (DMB). 








> 




: ::3 


1 SDBNSDB IdBPCBLKY | 


JCB 






k. 


PSDB 
1 DMBFSDB 1 


JCBSDB1 


SDB — = 


TI 




JCBSDBND 


SDBPSDB 


J 


JCBMKYL 


SDBEND 




PSDB 






22. Indicate task scheduling 
complete. 


J 


PPST 


System 1 
TCA 1 






' ..J 


1 PPSTIND 1 








Itcadlii 1 1 




23. Bypass data base log write if 
the data base log is not open 
or this task is not update or 
with exclusive intent. Go to 
Step 27. 

24. Write open log record if CICS/VS 




SCD PDIR 




^ TCA 


3 


1 SCDDBLOP 1 PDIRCODE 








SCD 




SCDSIND 




SCDSIND2 




> 


SCDEXTBA 






journaling is active and this is 
the first time logger is called. 


_J 


SCDDBLWO 




-,>^ Itcatcea 


ro 






SCDEXT 
ISCDESECB 




BALR 


DFHKC TYPE=WAIT Mac 


1 


^^ 


DLZRDBL1 








Open-Log 
Record Write 















DLZODP -^Pre-scheduling and Scheduling CSECT 



Extended Description 


Routine 


Label 


19. 


DLZODP 


SCHDSDBL 


20. 




SCHDSDBN 


21 . Each PGB is scanned and the SDBs 
(sensitive segment types for each 
PCB) are placed in the SDB chain 
of the appropriate PSDB. DMBFSDB 
poifits to the SDB of the first PCB 
sensitive to this PSDB and SDBNSDB 
points to a SDB within the next PCB 
sensitive to the same PSDB. 




TASKPSBI 


Move maximum key length for use by 
intersystem communication (ISC) 
transformer in calculating size of local 
copy of PCB. 






22. Turn on scheduled indicator (PPSTA) 
and turn off scheduling initiated 
(TCADLITC). 




TASKSCOM 



Extended Description 



DLZODP 

Routine 



Label 



23. The scheduling record is only created for 
tasks with update intent. 

24. 




TSKLGNl 
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Figure 2-6.1. DL/I Pre-scheduling and PSB Scheduling Routines (Part 6 of 7) 



INPUT 



PPST 


SCD 


|PPSTID 1 


SCDREENT 


PDIR 

Ipdirsym 1 

SCDEXT 


SCDCWRK 


System 
TCA 


TCAKCTTA | 


ISCDESECB 1 







SCD 



SCDEXT 
I SCDEIDNX I 



I PROCESS I 



25. Write CICS/VS startof-task 
record. 



DEIB 

I DDIRPPST h " 



Write Start-of-Task 
Record 

2-6.4 



26. Log task scheduled. 

DFHKCTYPE=WAIT 



DLZRDBLO 



Log Write Routine 
2-16 



Log Write Routine 
2-17 



27. Set hashed ID in the PST and 
update ID use chain. 

28. Return. 



> 29. Get PPST of exclusive holder. 
30. Go to Step 32. 



DLZODP - Pre-scheduling and Scheduling CSECT 



i- OUTPUT- 



::> 



•h 



To 

Figure 2-6.12 

Steps 



Data Base 
LOG R EC 



PST ID 



PST 



DLZODP 



Extended Description 


Routine 


Label 


25. 


DLZODP 


TASKLGNX 


27. The hashed ID is used by space 




TASKEXIT 


management to prevent freed space 






from being reused before the task 






terminates. 






28. 




TASKEXTF 


29. PSB is being used exclusively. 




SCHDWTCK 


PPST address of holding task 






is in DDIR. 







Extended Description 


Routine 











Licensed Material - Property of IBM 2-49 



Figure 2-6.1. DL/I Pre-scheduling and PSB Scheduling Routines (Part 7 of 7) 
fa INPUT I m PROCESS 



SCHDPDIR 


PST 


1 IIpstpread I 


EPIP 


JPDIRADDR 


1 


PSB 


PSBPST 1 





IPPSTIND 



PPST 
(PPSTECB 






31. Get PPST of holding task. 



32. If scheduling conflict is not 
with a multiple partition support 
task, to Step 35. 

33. Indicate DB not open and 
scheduling error. 



34. Return to Step 28. 



35. Indicate task suspended due to 
intent conflict. 



36. Suspend the task. 



OUTPUT! 



TCA 


System 
TCA 


TCAFCTR 


TCADLTR 


1 TOAD Li! 1 




SOD 




SCDSIND 


SCDNTWC 







DFHKCTYPE=SUSPEND 



37. When task resumed, return to 
Step 9. 



-»> I PPSTECB 



DLZODP - Pre-scheduling and Scheduling CSECT 



Extended Description 


Routine 


Label 


3 1 . PSB is being used with update 
, intent. 


DLZODP 


SCHDWAIT 


32. Slcip suspension of task if scheduling 
conflict is with a MPS task (because 
this situation could result in a long 
delay). 




SCHDMPS 


33. If the holder is an MPS scheduled 
task, a data base not open error 
X'OC is set in TCAFCTR and MPS 
conflict reason code is set in 
TCADLTR. Scheduling error indicator 
TCADLISE is turned on. 






35. Flag PPSTSI is turned on in PPST 
and the wait counter is incremented. 
The waiting indicator SCDTWFI is 
turned on. 




SCHDOWAT 


36. 




SCHDTKWT 



Extended Description 



Routine 



Label 




^ 
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Figure 2-6.2. System Abnormal and Normal Termination (Part 1 of 3) 

fH INPUT HHMMwmMiiMHi^ rirc/x/Q V" PROCESS I 



SCDDLIPS 



SCDSIND 



cics/vs I" Pf 

DFHSRP I 

k4 



CICS/VS 
DPHSTP 



] 



SCDDBLSV 



1. Enter for abnormal system 
termination. 



2. Enter for normal termination. 
Go to Step 10 if this is the 
second time entering. 



3. Acquire a dummy PST (for 
register save areas) to close 
the data base log. Go to Step 
6 if log not active or if 
journaling is active. 



■-OUTPUT- 




r ^ ABSWITCH 

r^- — 



DFHSC TYPE=GETMAIN 



4. Force write of log buffers. 



^4 

BALR^ 



Log Force 
Write 



> 5. Close data base log. 



Log Close 
Routine 



DETACH Macro 



CICS/VS 
Partition 



DLZODP02vrnp 


PST 




PSTPREAD 




PSTSCDAD 




PSTPSB 




PSTSV1 




PSTSV2 




PSTSV3 




PSTSV4 




PSTSV5 




PSTSV6 




PSTSV7 





DLZODP02 - System Abnormal and Normal Termination CSECT 

Extended Description Routine Label 



1. Entry is made from CICS/VS System 


DLZODP03 


DLZODP03 


Recovery Program on abnormal 






termination. 






Return is back to DFHSRP. 






2. Routine identifier (DLZODP02vrnp) 


DLZODP02 


DLZODP02 


is defined here. For normal termina- 






tion DFHSTP enters this routine twice. 






3. Issue message DLZ067I if there is 




STPRENTR 


insufficient storage to terminate 






DL/I. 






4. 




STPSVCHl 
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Figure 2-6.2. System Abnormal and Normal Termination (Part 2 of 3) 
!■ INPUT ni l ' ill • ' I n f PROCESS 



. ?Y?gQ|yi 



SCDDBMPS I IJBNPART 






PLg?^CBn2 



LfOl 



I TCAPCLA 



> 



■- OUTPUT 



6. Notify MPS batch programs of 
termination and delete XECBs. 



XECBTAB TYPE=DELETE 
XECB=DLZXCBnO 



XECBTAB TYPE=DELETE 
XECB=DLZXCBn2 



XECBTAB TYPE=CHECK 
XECB=DLZXCBn1 



XPOST XECB=DLZXCBn1 



7. Return to CICS/VS if normal 
termination. 



8. If abnormal termination, issue 
message DLZ070I - Abnormal 
Termination Complete. 

-^ 

¥^ 9. Write formatted dump. 



DFHPCTYPE=LOAD 



DLZFSDPO 



Formatted System 
Dump Program 



DLZODP02 - System Abnormal and Normal Termination CSECT 




Extended Description 






6. MPS batch programs may be active or 
waiting for online MPS processing and 
are therefore notified if CICS/VS 
terminates. Online XECBs defined for 
MPS are also deleted. The indicator 
SCDXECB at SCDDBMPS is on if any 
XECBS are defined by module 
DLZMPCOO 


DLZODP02 


STPEXLOG 


The Start Partition XECBs 
(DLZXCBnO - where n is equal to the 
partition ID) for each partition are 
deleted first. Then the BPC XECBs 
(DLZXCBn2) for each partition are 
deleted. Finally, locate each MPS 
Batch XECB (DLZXCBnl) and 
XPOST them. 






7. 




STPNOXCB 


8. 




ABTERM 


9. 




STPEXIT3 
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Figure 2-6.2. System Abnormal and Normal Termination (Part 3 of 3) 
INPUT II 1 f- PROCESS 



SCD 



> 1 0. Write message D LZ063I - D L/l 
Normal Termination Entered. 



SCDDLIPS 



11. Acquire a dummy PST (for 
register save areas) to close 
the data bases. 



DFHSCTYPE=GETMAIN 



> 12. Close all data bases. 



DLZDLOCO 



Open/Close 



13. Write message DLZ069I - DL/I 
Normal Termination Complete. 



■-OUTPUT- 



£51. 



PSTSCDAD 



PSTSV3 



PSTSV4 



^ PST 

[PSTFNCTN 



CICS/VS 
DFHSTP 



DLZODP02 - System Abnormal and Normal Termination CSECT 



DLZODP 



Extended Description 


Routine 


Label 


10. Write message DLZ068I - System 


DLZODP02 


STPFLUSH 


Previously Abended, DL/I Abnormally 






Terminated - if the system abend 






indicator (SCDSYSAB) is on at this time. 






Write message DLZ065I - Active DL/I 






Tasks - if a PPST is still active. 






1 1 . Write message DLZ067I if there is 




STPBFFL 


insufficient core to terminate DL/I. 






12. Write message DLZ066I if an error 




STPCLOSE 


occurred during close processing. 






Then load and execute dump module 






DLZFSDPO via DFHPC TYPE=LOAD 






and return to DFHSTP. 







Extended Description 



Routine 



Label 




Licensed Material - Property of IBM 2-53 



Figure 2-6.3. Task Termination Routine (Part 1 of 5) 



INPUT 



TCA 

[tcadlh "1 — 



,TCA 



System 
TCA 


lACTNM 1 


TCADLII 




TCADLIPA 


TWA 




TWAMPSFG 


PST 


TWAMPCPT 


Ipstpread 


TWABPCID 



PPST 


MPCPT 


1 PPSTIND 1 


MPCDELIM 




MPCPID 


DLZXCBnl 


MPCSXECB 


IXECB 1 


MPCPTLN 



OLZXCBn2 



XECB 



From Figure 
2-6.11 Step 
3orCICS/VS 
DFHPCP 



p PROCESS ' 



^ 2. A. 
^ B. 



1. Save program control program's 
base and return address. 



ri OUTPUT. 



Issue TRACE Macro 



For System task termination 
go to Step 17. 

For normal task termination 
go to Step 5. 



-W 



Return 



3. For abnormal task termination 
call dump program. 



Formatted Task 
Dump Program 



xf 4. Clean up XECBs if abending task 
is DLZBPCOO (Batch Partition 
Controller). 



^l 



XECBTAB TYPE=CHECK 
XECB=DLZXCBn1 



XPOST XECB=DLZXCBn1 



XECBTAB TYPE=CHECK 
XECB=DLZXCBn2 



XECBTAB TYPE=DELETE 
XECB=DLZXCBn2 



MPCPT 



MPCFLAG 



>^EPB 



DLZXCBnl 
XECB 1 



DLZODP01 - Task Termination Routine CSECT 



Extended Description 


Routine 


Label 


1. Routine identifier (DLZODPOlvrnp) 
is defined here. 


DLZODPOl 


DLZODPOl 
DLZTKTRM 


This is the entry point for CICS/VS 
PCP termination exit indicator 
(TCADLITE) is on and the task is about 
to be detached. Also, if a TERM or T 
call is detected by the program request 
handler, an entry is made here to 
unschedule the task. 






If trace is enabled, a task termination 
entry \yith a ID=X'F8'; type of request 
=X'E3', is made showing why termina- 
tion was requested, and the DL/I status. 




DLZOLT02 


2. A. The system interface active 
indicator (SCDSYACT) at 
SCDSIND2 is turned off if this is 
a system task (TCADLPAS is on). 






B. 




NOSYSTSK 


3. No formatted dump will be produced in 
case of missing PST or insufficient stor- 
age available. If SYSDUMP=YES was 
specified for the DOS/VS partition, an 
IDUMP is taken instead of the formatted 
dump. 




DLZODP06 



Extended Description 



Routine 



Label 



DL/I system ABEND will be reduced 
to task ABENDS. In case of DL/I 
system ABEND all DL/I tasks will be 
abended by DL/I. For each task, 
DLZFTDPO will be called. 

DLZFTDPO uses the CICS dump macro 
DFHDC, that dumps DL/I blocks on 
the CICS dump data set . To get the 
dump on printer, use offline CICS 
program DFHDUP. 

4. If BPC (DLZBPCOO) is the terminating 
task, the POST bit in the Stop Parti- 
tion XECB (DLZXCBOl) is set on to 
signal MPC (DLZMPCOO) that BPC 
abended. Note that the XPOST macro 
is not needed because the XECB 
(DLZXCBOl) was defined in this 
same partition. 

The partition ID (TWABPCID) this 
terminating BPC was attached for is 
used to locate MPS Batch XECB 
(DLZXCBnl) via XECBTAB/CHECK 
which is then posted (XPOST). The 
BPC XECB (DLZXCBn2) is then 
located and deleted. 




NODUMP 
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Figure 2-6.3. Task Termination Routine (Part 2 of 5) 



■■ INPUT 



TCA 



|tCADLIPA~| I PPIROPTC" 



PST 



PSTPREAD 



SCO 

I SCDDLICT^ 



TCASYAA 



[^ 



» PROCESS II 

5. A. If this task was suspended by DL/I, 

go to Step 20. 

B. If this task has no PST acquired, go 
to free PPST only. Step 18. 

6. If task scheduled to remote PSB, set up 
remote term call. 



Remote Term Call 
I nterf ace 

2-6.17 



^^7. Issue TERM call to call analyzer to 
purge buffers. 



DFHKCTYPE=WAIT 



DLZDLAOO 



Call Analyzer 
2-8 



^8. Write TERM log record on DL/I log 
or CICS/VS journal. 



DFHKCTYPE=WAIT 



Log Write Routine 
2-16 



Log Write Routine 
2-17 



^9. Write a CICS/VS synchronization point 
record if termination exit is present. 



Write Sync Point Record 
2-6.5 



DLZODP01 - Task Termination Routine CSECT 



i- OUTPUT! 



-TV 



PPST 


SOD 


1 PPSTIND 


1 SCDCDTA 1 


PST 




PSTIQPRM 


PSTLIPRM 





— K 



PPST SOD 


1 PPSTIND 


1 SCDCDTA II 


Data Base LOGR EC 


LLBB 




X'07' 


PSBNAME 


PST ID 


TASK STAT 


CICSTSKID 







DLZODP 



Extended Description 



Routine Label 



5. 

7. A wait may be done at this time for the 
logger if it is not available. 

8. The termination record is logged for 
normal termination of update users 
only. 

9. 


DLZODPOl 


NORMTTRM 

CHKLOGGR 
TRMLGBY 



Extended Description 


Routine 


Label 
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Figure 2-6.3. Task Termination Routine (Part 3 of 5) 

INPUT ■! I I - I ■ I pi PROCESS i-i 



SCDEXT 



SCDPPSTS 


SCDEIDST 


SCDEXTBA 


SCDEIDNX 




SCDEIDWK 






I PPSTCA 



PDIR 


DDIR 


Ipdirsila I 


DDIRCNT 




DDIRCODE 



PSIL 



PSILDIRA 


SCDEXT 


PSILNTNT 


1 SCDEFECB 1 



SCD 



PPSTCF 



PPSTTCA 



,PDiR 



JCB 



JCBSDB1 




DMBFSDB 



* 11. Update DMB use count and reset 
DB exclusive control. 



f OUTPUT- 



10. Release hashed task identifier. 



SCD 



SCDEXT 



ISCPLQWiP IISCPEIPNX 



".^ 12. Resume all tasks suspended due 
to segment intent conflict. 






DFHKCTYPE=RESUME 



> 13. Unchain SDBs from PSDBs. 



■^ 



DDIRCNT 



I '80' 



SCD 


JSCDSIND 1 


TCA 


[tcarstsk 





i SDBNSDB 



DLZODP01 - Task Termination Routine CSECT 
Extended Description Routine 



Label 



10. The lowest active identifier is main- 


DLZODPOl 


TRMXTBY 


tained in the SCD. DL/I Space Manage- 






ment uses the low and high identifiers 






to exclude free space belonging to 






active tasks from reuse. 






11. 




TRMDMBLP 


12. All tasks suspended for intent are 




TRMPOLUP 


resumed. At the next dispatch cycle 






they Vill attempt to schedule . 






13. 




TRMFRESD 




^ 
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Figure 2-6.3. Task Termination Routine (Part 4 of 5) 

■> INPUT I ■ mm PROCESS — 



PDIRCODE 



SCD 



,P?T 



' ^ 14. Free storage if this is a 

duplicate PSB. 



System 
TCA 



RO 



R9 
J 1 Return 



TWAEOJSW 



:d 



DFHSC TYPE=FREEMAIN 

^ 15. Free DL/I task resources. 

DFHKC TYPE=RESUME 



16. If any tasks are waiting for 
CMAX, post the first one. 



17. If task is DLZBPCOO and batch PRH 
needs XPOSTing, XPOST DLZXCBnl 

Return to caller. 



18. Look for the PPST with this 
tasks TCA address and when 
found return to Step 15. 




OUTPUT- 



PPST 




SCD 


PPSTCF 


SCDPPAF 


PPSTCB 


SCDPPAB 


PPSTIND 


SCDPPFF 


PPSTTCA 


SCDPPFB 




SCDDLIS 


TRACETAB 


SCDSPCNT 
















T^ 





?gDDl'? 



SCDSPCNT 



System 
TCA 



I TCARSTSK 



I XECB "] 



DLZODP01 - Task Termination Routine CSECT 



DLZODP 



Extended Description 


Routine 


Label 


14. For read only or update with 
program isolation. Duplicate 
PSBs are identified by the PDIR 
indicator PDIRDUPL. 


DLZODPOl 


TRMPSBFR 


15. This cleans up the terminating 
PPST, removes it from the active 
chain, and places it on the free chain. 
It checks the suspend chain and 
resumes a task suspended due to 
MAXTASK. 




TRMFREPP 
TRMFREPE 


The PPST number of the terminating 
PPST is put in the internal trace table 
along with a 'T' to indicate terminat- 
ing entry. Upon resuming, the total 
suspended count is decremented 1 and 
the current maximum task indicator is 
turned off if it was on (SCDCMTI). 






17. Turn off DL/I scheduled (TCADLISD) 
and DL/I termination required 
(TCADLITE) indicators. 




TRMEXIT 


Issue message DLZ084I if XPOST fails. 






18. 




TRMFREPO 



Extended Description 



Routine Label 
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Figure 2-6.3. Task Termination Routine (Part 5 of 5) 
■> INPUT ■ I ■ *■ PROCESS - 



SCD 


TCA 

|tcadlipa| 


|SCDDLIS| 





- — > 



19. Issue a CICS/VS dump if the 
PPST is not found and go to 
Step 17. 



DFHDC TYPE=PARTIAL 



20. Remove task from the suspend 
chain and go to Step 17. 



m OUTPUT- 



P SCD 



SCDSPCNT 



DLZODP01 - Task Termination Routine CSECT 



Extended Description 



Routine Label 



Extended Description 



Routine Label 



19. 
20. 


DLZODPOl 


TRMPOABA 
TRMSUSPA 




^ 
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Figure 2-6.4. Start-of-Task Record Writer 

■■ INPUT — — M ff* PROCESS < 



JCA Address 



Caller 
Registers 



From 
Figure 
2-6.1 
Step 25 



1. Save registers and establish 
addressability to CSA and 
system TCA. 



- > 2. If Start-of-Task record is 

already logged, go to Step 5. 

3. Get journal control area. 



DFHJCTYPE=GETJCA 



] ^ 4. Write Start-of-Task record. 



R11 

-Cr I JCA Address | 



> 5. Restore registers. 




-OUTPUT- 



Caller 
Registers 


i 


1 


R13 


=1 

RO 


|CSA 


1 1 Save area | 


R6 


1 System TCA | 





CICS/VS System Log 



CICS/VS Start-of-Task 
Record 



DLZODP04 - Start-of-Task Record Writer 



Extended Description 


Routine 


Label 


1 . Routine identifier DLZODP04vrnp 


DLZODP04 


DLZODP04 


is defined here. 






3. Acquire task's JCA and establish 






JCA addressabihty. 






4. Dummy record is written to system 






log and CICS Start-of-Task indicator 






is set in it to mark start-of-task on 






system log. 






5. Restore save area address in register 




DLXSCRET 


13 and reload registers 14 through 






12 from the save area. 







Extended Description 



DLZODP 

Routine Label 
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Figure 2-6.5. Sync-Point Record Writer (Part 1 of 2) 






^ CW ITPI IT ^^_ 






From 
Figure 
2-6.3 
Step 9 
or From 
DFHSPP 


4 






Caller 
Registers 




1. Save registers and establish ' 




U 


[h 


addressability to CSA and 
system TCA. 

> 2. If caller was DFHSPP (CICS/VS 
Sync-Point Program), go to 
Step 5. 


■fc- 


III 


RO 


R13 


1 Save area 1 1 CSA | 




TCA 






Itcazluwt H 






CICS/VS System Log 


1 Sync-PoInt Record . | 




3. issuA a sync p^int. ^ :: 


MHM DFHSP TYPE=USER 


■ ■'*' 


TCA 








1 TCAZLUWT 






Caller 
Registers 


1 


1 n,^ 


J> 4. Kestore reaisters and return. 


^ 






RO 
1 Save area | 

R13 










TCAFCTR 




TCAZLUWT 








Figure 
2-6.3 
Step 10 


TCA 
^ 1 TPASrSA 


jCSA 1 








fi RiiiiH ;^ npferr^ff Work Flftment (DWF), -. ^ 






MHII^ DFHSCTYPE==GETMAIN 











DLZODP05 - Sync-Point Record Writer 



1. Routine Identifier DLZODPOSvrnp 
is defined here. 



Routine Label 



DLZODP05 



DLZODP05 



Extende^Description 



DLZODP 

Routine Label 



% 
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Figure 2-6.5. Sync-Point Record Writer (Part 2 of 2) 
INPUT I ff- PROCESS - 



TCA 



TCADWLBA 






DFHSPP 

Return 

Address 



6. Insert DWE at end of DWE chain. 



■-OUTPUT- 



7. Return. 




From 
DFHSPP 

3. 



DLZODP05 - Sync-Point Record Writer 
Extended Description 



8. Restore Task Termination 
environment. 



9. Return. 




I dweaddrI 



DWE@ End o f Chain 

dwechanI 



NEW DWE 



DWESVMNA 



DFHSPP Return 
Address 



System 
TCA 



R13 



R9 



Caller 
Registers 



TCA 



ll 



PSTSV1 + 12 



DFHSPP Return 
Address 



Routine 



6. Store address of DWE entry point 
of DLZODP05 in DWE for deferred 
processing by CICS/VS. 



8. Set up registers and PST save area 
to complete task termination and 
then return to DFHSPP. 



DLZODE05 



DLXDWECN 



DLXTDWEN 



Label 



Extended Description 


Routine 


Label 
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Figure 2-6.6. Online Program Request Handler 





From 

Application 

Program 


SCD 


R1 


(See Note) 
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1 CSACDTA 1 
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I PROCESS ( 



. Establish addressability to SCD, CSA, 
and task TCA and acquire (JIB storage 
if required. 



DFHSC TYPB=GETMAIN 



2. indicate DL/I is active. 



DFHICTYPE = ENTRY 



3. If scheduling call, validate parameters* 



4. Determine if the call function is a 
scheduling, termination, or system 
call. If it is go to Step 7. 

5. Go to Figure 2-6.10 to process normal 
DL/I calls. 

6. Go to Step 8. 

7. Go to Figure 2-6.11 to process 
scheduling, termination, or 
system calls. 

8. Call trace program. 



Issue DFHTRACE 
macro 



^ 9. Restore registers and return. 

DFHICTYPE = EXIT 




DLZPRHOO - Program Request Handler CSECT 
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Program 
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User Save 
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SCD 1 
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User- Call 
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TCA 1 






^TCA 

|tcasvmid 

> TCA 
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TCADLUIB 




TCASCSA 






TCA 




1 TCASVMID 




^ UIB 




1 UIBRCODE 








1 



Extended Description 



Routine 



Label 



Note: This routine receives control from 
the Language Interface Module 
(DLZLIOOO) linked with the application 
program. 

1. Module identifier (DLZPRHOO vrnp) is 
defined here. The level format is vrnp; 
where V is the version, 'r' is the release, 
'n' is an additional identification 
number, and 'p' is the latest PTF num- 
ber that has been applied. 

2 


DLZPRHOO 


DLZPRHOO 
0VERID3 



Extended Description 


Routine 


Label 


3. 




ECIVAL 


4. 




TESTFUNC 


8. UIBFLAGl bit setting determines 
whether DLZOLTOO, DLZOLTOl, 
or DLZOLT02 is called for 
scheduling, data base or 
termination call, respectively. 






9. If UIB is used, update UIBRCODE 
from TCAFCTR. 




RETURN? 
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Figure 2-6.7. Online Error Message Routine (Part 1 of 2) 
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TCAOLII 



TCA 


PPST 


|tcadlipa 1 


PPSTIND 



PST 



h-—: 



1. Establish environment. 



2. If this task has no PST go to 
Step 4. 



PSTERCOD 



PARM List 



ERMSGADT 



ERMSGSV1 



> 3. Save the 'currently active' status 
and indicate this is no longer 
the currently active DL/I task. 



P OUTPUT- 



Caller 
.PI 3 . Registers 

IcSA I I 



R12 



ITCA User Area 



R6 



System TCA 



> 4. Acquire storage and construct 
error message. 



PST 



DLZMMSGT 



Message Text Construction 



I tdoadba"! 



~/^ 5. Write message to TD destination 
"*^ CSMT and system operator console. 



> 



ERMSGADT 



WTO 



DFHWTO Macro 



DFHTDTYPE=PUT 



DFHSC TYPE=FREEMAIN 



DLZERMSG - Online Error Message Routine 
Extended Description 



DLZODP 



Routine 



Label 



1. Routine identifier (DLZERMSGvrnp) 
is defined here. The level format is 
vrnp; where V is the version, 'r' is 
the release, 'n' is an additional 
identification number, and 'p' is the 
latest PTF number that has been 
applied. 

2. If there is no PST the message number 
will be in the parameter list which is 
pointed toby Rl. 

3. 'Currently active' has a special mean- 
ing. There may be many DL/I tasks 
active at this time. Therefore, DL/I 
uses a bit (PPST ACT) in the PPST to 
make it easy to spot (in a dump) the 
single DL/I task that is currently 
processing non-scheduling DL/I calls 
(Non-scheduling calls being calls 
handled by the call analyzer and other 
DL/I action modules). 

Tasks like the MPS Batch Partition 
Controller can have a PST and can call 
DLZERMSG while not being the 



DLZERMSG 



^ 



urrentlv active task. 



DLZERMSG 



Extended Description 



Routine 



Label 



Since CICS/VS can schedule another 
DL/I task during a CICS/VS operation, 
(for example, I/O) PPST ACT is reset 
by DLZERMSG for the duration of 
the write because there can only be one 
task marked as 'currently active' by 
definition. 

4. The GETMAIN output buffer is 
needed by CICS/VS transient data 
services. 

DLZMMSGT is used to construct text 
for messages with message numbers 
from 1-255. 

5. 




ERMSGETM 
ERMSGPUT 
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Figure 2-6.7. Online Error Message Routine (Part 2 of 2) 



■•INPUT 



SCDEXTBA 



SCDESECB 



Caller 
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*> 7. Wail 



r> OUTPUT 



Wait for the logger if the 
log is open and busy. 



DFHKCTYPE=WAIT 



^ 8. Restore original environment. 




DLZERMSG - Online Error Message Routine 
Extended Description 



DLZODP 



Routine 



Label 



6. Since control was lost during the 
I/O another job may have activated 
the logger. To assure serialization, 
this routine must wait until the 
logger is done. 

?. Reset *currently active' status to 
the value it was on entry. 


DLZERMSG 


ERMSGERT 



Extended Description 



Routine 



Label 
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Figure 2-6.8. Online Wait Routine 

m INPUT 




PROCESS « 



SCD PST 1 


SCDEXTBA 


JPSTCODEI 1 


SCD DB LOP 




SCDEXT 




ISCDESECB 









SCDSIND2 



TCA 



I I Caller 

ITCADLII I Registers 



] -. 



1. Establish environment. 



> 2. Indicate the non-scheduling 
task not 'currently active' 
and issue CICS/VS I/O wait. 



i- OUTPUT! 



R13 
|CSA 



Caller 
Registers 



TCA User 
Area 



ECB 
Address 



R6 



System TCA 



DFHKCTYPE=WAIT 



^ 3. Wait for the logger if the log 
is open and busy. 

DFHKCTYPE=WAIT 

Return to Step 2. 
^ 4. Check if DL/I abended 

DFHPCTYPE=ABEND 



I TCA 



. PPST 



.SCD 



^ 5. Restore original environment. 



^B,^ Caller 



DLZOWAIT - Online Wait Routine 



Extended Description 



Routine 



1. Routine identifier (DLZOWAITvrnp) 
is defined here. The level format is 
vrnp; where 'v' is the version, 'r' is 
the release, 'n' is an additional 
identification number, and 'p' is the 
latest PTF number that has been 
applied. 

2. A non-scheduling task is a task that 
does not issue the special scheduling 
call (PCB,SYSTEMDL,password) to 
schedule itself so that it may issue 
system calls: CMXT, STRT, STOP, 
TSTR, and TSTP. 

'Currently active' has a special meaning. 
There may be many DL/I tasks active 
at this time. Therefore, DL/I uses a 
bit (PPST ACT) in the PPST to make 
it easy to spot (in a dump) the single 
DL/I task that is currently processing 
non -scheduling DL/I calls (non- 
scheduling calls being calls processed 
by the call analyzer and other DL/I 
action modules). Since CICS/VS can 
schedule another DL/I task during a 
CICS/VS operation (for example, 
I/O) PPST ACT is turned off until 
return is made to the caller of 



DLZOWAIT 



Label 



DLZOWAIT 



OWATRECK 



Extended Description 



Routine 



Label 



DLZOWAIT because there can only 
be one task marked as 'currently 
active' by definition. 

3. Serialization of the logger resource is 
another job of the online nucleus. 
Since control was lost during the 
wait, another job may have activated 
the logger. To assure serialization, this 
routine must wait until the logger is 
done. Return is then made to Step 2 
to recheck that this task's ECB is 
posted and to reissue the wait again 
if it isn't. 

4. 

5. Reset non-scheduling task to 
currently active status as it was 
on entry. 




OWAITRET 
OWAITCON 
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Figure 2-6.9. VSAM Asyncronous Exit Processor 
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^ 1. Establish environment. 



SCDEXTBA 



^ 2. Indicate the non-scheduling task 
not 'currently active' and issue 
CICS/VS wait. 



DFHKCTYPE=WAIT 



1 > 



^ 3. Wait for the logger if the log 
is open and busy. 



DFHKCTYPE=WAIT 



4. Return to VSAM. 




DLZOVSEX - VSAM Asyncronous Exit Processor 
Extended Description 



1 . Routine identifier (DLZOVSEXvrnp) 
is defined here. 

2. A non-scheduling task is a task that 
does not issue the special scheduling 
call (PCB,SYSTEMDL,password) to 
schedule itself so it may issue system 
caUs: CMXT, STRT, STOP, TSTR, 
and TSTP< 'Currently active' has a 
special meaning. There may be many 
DL/I tasks active at this time. Therefore, 
DL/I uses a bit (PPSTACT) in the 
PPST to make it easy to spot (in a 
dump) the single DL/I task that is 
currently using the call analyzer and 
other DL/I action modules. 

Since CICS/VS can schedule another 
DL/I task during a CICS/VS operation 
(for example, I/O) PPSTACT is turned 
off until return is made to the caller of 
DLZOVSEX because there can only be 
one task marked as 'currently active' 
by definition. 



DLZOVSEX 



Routine 



DLZOVSEX 



OWATSYS 



Label 



ExtendedDescriDtioii 



Routini 



labsL 



3. Since control was lost during the 
wait another job may have activated 
the logger. To assure serialization, this 
routine must wait until the logger is 
done. 

4. Reset n on -scheduling task to 
'currently active' status as it was 
on entry. 




i 



2-66 Licensed Material - Property of IBM 



Figure 2*6.10. Online PRH Processing of Normal DL/I Calls (Part 1 of 2) 
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SCD 



PSTPREAD 



SCDDLICT 



1. If caller not scheduled, set error and 
go to Step 16. 



► 2. Validate and move call parameter list 

to PST. 



3. If task scheduled to remote PSB, set up 
remote data base call. 



Remote Data Base 
Call Interface 

2-6.16 



4. Wait for the logger if the log is open 
and busy. 



DFHKCTYPE=WAIT 



I PSTPCT2 



> 5. Exit to DL/I Call Analyzer. 



Call Analyzer 
2-8 



6. Clear the active task indicators. 



> 7. Write CICS/VS synchronization point 
record if call is CHKP. If not, go to 
Step 11. 



Task Term Sync 
Point Return 

2-6.5 



DLZPRHOO - Program Request Handler CSECT 



P OUTPUT- 



> PST 



> PST 
~V I 



SCD PPST 

I SCDCDTA I I PPSTIND 



PST 



PSTIQPRM 



SCD PPST 

^ I SCDCDTA "^ I PPSTIND 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



1. Set 08 in TCADLTR if TCADLISD, 
task scheduled indicator not on (there 
was not a previous PCB or PCBM call). 

2. Write message DLZ260I if the 
parameter count is invalid. 

Write message DLZ261I if the 
parameter address is invalid. 

3. Allow ISC mirror (DFHMIR) to use 
lOAREA address=0. 




PRODLIC 
EXPLST 



5. At this point the system is switched 
from the CICS/VS state to the DL/I 
state (standard register assignments). 

The task TCA address is put in 
SCDCDTA as the current dispatched 
task TCA. Also, the current task 
indicator (PPSTACT) is turned on. 




EXIT ANAL 
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Figure 2-6.10. 

M IIMPIIT ^ — 


Online PRH Processing of Normal DL/I Calls (Part 


2 of 2) 
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^ 8. Dequeue task program isolation 












SCDDBMPS 
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resources if program isolation 
active. 

^HBI^ DLZPUR Macro 

9. Reset CHKP call indicator. 

► 10. If the caller is an MPS task, 
go to Step 15. 




1 




> PST 1 




PPST 
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1 PSTPCT2 1 

iw 




PSTABIND 


► 1 1 . If task or system abend 
indicated, go to Step 1 3. 

^12. IVIove data to user's I/O area. 




PST 




PSTUSER 




PSTSEGL 


Then go to Step 15. 
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User I/O Area 1 




-^ 
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PSTSEG 


^13. Abend user if a task abend 
indicated. 
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PST SCD 1 
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SCDERRMS • 
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SCDCSABA 
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SCDERRMS 








CSACDTA 1 


Error Message 
Routine 

2-6.7 












1 
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DFHPCTYPE=ABEN 

1621 -DL/I 
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fPSTABIND 1 


has been abnormally lerminaiea 




'^SCD 




- if a system abend 
15. Return. 


indicated. 

DFHPCTYPE=ABEN 
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Figure 2-6.6 

Step 6 


|SCDSIND2 1 
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DLZPRHOO - Program Request Handler CSECT 



Extended Description 



Routine 



Label 



9. 

1 0. If the caller is not in the CICS/VS 
DL/I partition (MPS caller - 
PPSTMPS), skip abend check 
(DLZMPIOO will handle abend) and 
skip move of data to user area 
because you cannot move across 
partition (DLZMPIOO will handle 
data move). 

11. if user's lOAREA address=0, skip 
moving of data. 

1 3. If this is a task abend, a CICS/VS 
abend is issued. 

14. If this is a system abend (PSTSABND 
on) the system abend indicator 
SCDSYSAB is set in the SCD and all 
active DL/I tasks will abend at the 
earliest opportunity. 




ENDCHKP 
NOCHKP 

PSTPCBl 

PRHABEND 

PRHSYSAB 



Routine 



Label 




% 
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Figure 2-6.11. Online PRH Processing of Schedule Termination, and System Calls 

«■ INPUT II I ■■ PROCESS I 



TCA 



From Figure 

2-6.6 

Steps 



ACTNM 



1. If function equals RGB or PCBM, 
go to Figure 2-6.12 to schedule. 

2. If function is not T or TERM 
call, go to Step 7. 

> 3. Call task termination to 
unschedule the task. 



Task Termination 
Routine 

2-6.3 



4. Free PST storage if it was 
acquired. 



DFHSC TYPE=FREEMAIN 



5. Restore ACT pointer into task 
TCA. 

6. Go to Step 8. 

7. Go to Figure 2-6.13 to process 
system calls. 

8. Return. 



P OUTPUT! 



DLZPRHOO - Program Request Handler CSECT 
Extended Description 



Routine 



Label 



1. 




TESTFUNC 


3. Set 07 in TCADLTR if TERM call 




ISUTERM 


and a DL/I task termination is not 






required (TCADLITE is not on). 






4. 




FREEPST 


5. The ACT table entries are searched to 




TRMACTLP 


find the entry name with the program 






name that is in the PPT entry. The 






address of the ACT entry found is 






stored into TCADLIPA. If an ACT 






entry is not found and this is not a 






system task (TCADLPAS) DFHPC 






TYPE= ABEND macro is caUed with 






abend code = DACT. 
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Figure 2-6.12. 


PCB or PCBM Scheduling (Part 1 of 2) 
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call, exit to Figure 2-6.13. 
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to Step 4. 
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> 4. Find the first PDIR associated 




TCADLPSB 


TCA 




uan List 




TCADLIPA 












TCADLII 






TCADLPSB 


1 




1 




SCD 




PDIR 


1 SCDDLIPS 
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name in the AC 1. 




PDIR 
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PDIRADDR 
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PDIRCODE 
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► 5. Check for language conflicts. . 


1, 


PDIROPTC 
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DLZPRHOO - Program Request Handler CSECT 



Extended Description 


Routine 


Label 


1 . Set 04 in TCADLTR if PL/I witii no 
count field. 




GETPSBN 


2. Set 03 in TCADLTR if tiie task is 
currently scheduled (TCADLISD is 
on). 




PSBNODEF 


Set 02 in TCADLTR if the task is not 
a DL/I task (TCADLISI). 






Set 06 in the TCADLTR if the PSB 
name is too long (PSBNAME has a 
maximum of 7 characters with a blank 
in 8th position) or if there is no name 
specified. 






3. Set 01 in TCADLTR if the PSB name is 
not in a PDIR. 




PSBEFOND 


If PSB name='*ti', use default PSB 






name. 






4. The first PDIR pointer is determined 
from the task's ACT entry and is used 
to generate the PSB name. 




DEFPSBSC 



Extended Description 



Routine 



Label 



5. If call function code is PCBM (MPS 
scheduling) or program name is 
DFHMIR (ISC mirror program), 
skip language conflict checks 
because an assembler language 
routine is issuing scheduHng calls for 
programs written in all supported 
languages. 

Set 04 in TCADLTR for language 
conflict. 




DFRSKCNT 



/I 
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Figure 2-6.12. PCB or PCBM Scheduling (Part 2 of 2) 
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Figure 2-6.13. 


System Scheduling Call (Part 1 of 4) 
















1 








SCD 




SCDEXT 


SCDASE 


1 


SCDEPASS 1 




SCDSIND2 


DSG 


> 1. If 'SYSTEMDL' call, schedule 
system scheduling. 


J 


1 SCD 




TCA 


SCDEXTBA 


1 ;>ll SCDSIND2 


TCADLII 1 


PST 


1 


DSGDSGLN | 










PST 


PST 


1 PSTLNGTH 




BALR 


DLZSCHDL 




PSTC0DE1 




PSTPREAD 1 




Scheduling Routine 
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PPSTCA 1 1 








Go to Figure 2-6.6, Step 8. 
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User Call List 




1 1 


TCA 




PPST 


> 2. If CMXT function, adjust CMXT. 


^ -^ll 1 II 


1 User Call List 


TCADLII 




PPSTIND 1 






TCALIPA 


SCD 




Go to Figure 2-6.6, Step 8. 






SCD 




PST 


PST 




SCDMXTSK 


> 3. If TSTR function, load the 


1 SCDCMXT 




PSTUSER 


PSTPREAD 




SCDCMXT 




PSTSEGL 


PSTLIPRM 








PSTSEG 
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PSTLIPRM 








SCD 




TCA 


^ 


1 SCDTRACE 




TCADLII 




TCAPCLA 


requested trace module and issue 
initialization call. 


^ 






> SCD 




User Call List 


n 




SCDTRACE 




1 1 


^■■^ DFHPC TYPE=LOAD 


SCDTRCNM 










^■M DLZTRCAL TYPE=START 

Go to Figure 2-6.6, Step 8. 







DLZPRHOO - Program Request Handler CSECT 



Extended Description 


Routine 


Label 


1 . A task requesting services through the 




PROCSYS 


system calls must have been previously 






scheduled by password with this 






special schedule PCB SYSTEMDL 






call. If the password does not match, 






the caller abends via DFHPC with code 






DLPV. 






Important indicators set are : 






SCDSYACT - system interface 






active 






TCADLITE - termination 






required 






TCADLPAS - system task 






scheduled 






TCADLISD - task scheduled 






Exit is taken to scheduling routine to 






get a PST and initiaUzed upon return. 






PSTSCALL (system call in progress) 






is set and return is made to caller. 






2. The value passed by the user 




PROCMXT 


validated and moved to the SCD. 







Extended Description 



DLZODP 

Routine 



Label 



Without MPS, data is moved to the 
user call Hst area for work space. With 
MPS this would cause a storage pro- 
tection exception. To avoid this, an 
area in the PST (PSTLIPRM) (in the 
CICS/VS DL/I partition) is used as a 
work area. The MPS batch program 
request handler (DLZMPIOO) then 
moves the data from the PST into 
the user call Hst. 

If the new request is zero, negative, or 
exceeds MAXTASK indicate an 
invalid request error (set 08 in 
TCAFCTR). 

3. If task not scheduled for system 
calls (TCADLPAS not on) abend 
via DFHPC. 

If tracing is already active set X'Ol' 
in TCAFCTR. 

If the load fails, set X'02' in TCAFCTR, 

If GETMAIN fails during initialization, 
set X'04' in TCAFCTR. 



PROCTSTR 
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Figure 2-6.13. 


System Scheduling 


Call (Part 2 of 4) 














^ 4. If TSTP function, issue 
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MBHP DLZTRCAL TYPE=STOP 
4HHili^ DFHPC TYPE=DELETE 

Go to Figure 2-6.6, Step 8. 

^ 5. If STRT/STOP function, initialize 
DBD parameters by first verifying 
the caller is scheduled. 
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DDIR 
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PSTUSER 


DDIRSYM 
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DDIR 




DMB 


DDIRADDR 




DMBORG 


^ 7. Vfirity that the AHB is iisahlfi. > SYS 




DDIRC0D2 


DMBPPRLN 


^■■B TESTCB Macro 
^HB^ TESTCB Macro 




SYSACB1 










SYSACB2 


ACBXT 




SYSFLGS 


DMBACBAD 








DMBACBLN 


1 













DLZPRHOO - Program Request Handler CSECT 



Extended Description 


Routine 


Label 


4. If task not scheduled for system 
calls (TCADLPAS not on) abend 
via DFHPC. 




PROCTSTP 


If tracing not active, set X'Ol ' in 
TCAFCTR for invalid request. 






5. If task not scheduled for system 
calls (TCADLPAS not on) abend 
via DFHPC. 




PROCINIT 


6. The DMB name passed by the caller 
is used to scan the DDIR. 




PROICON 


If this is not an MPS task, data (VSAM 
return code and ACB address) is moved 
into the user call list for the caller. 
With MPS, a work area is used in the 
PST (PSTLIPRM) to build the data 
from the PST to the user call Hst. 






If the DDIR is not found, set X'08' 
in TCAFCTR to indicate an invalid 






request. 







Extended Description 



DLZODP 

Routine 



Label 



7. The ACBs are checked for open/close 
status. The ACB address (2 if HIS AM 
organization) and whether the ACB 
is open or not is put into the user call 
list (or if this is an MPS task, into the 
PST). Reference to fields within either 
of these two areas is by the system call 
parameter list DSECT (DLZSYSDS). 

If the DDIR failed to initialize, set 
X'02' in TCAFCTR. 

If TESTCB request fails, set X'03' 
in TCAFCTR. 




PROCACB 
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Figure 2-6.13. System Scheduling Call (Part 3 of 4) 



pi INPUT 



SCD PST 


1 SCDCSABA 1 1 PSTDSGA | 


DDIR DMB 


DDIRADDR 


1 DMBORG 1 


DDIRNUMB 












ISYSFLGS 



DDIR 



PST 



PSTSV1 



SCDDDBHO 



SCDDBFPL 



1 PROCESS 1 



8. Initialize the dummy DSG. 

9. If STRT function, go to Step 14. 



- > 10. For STOP function, check the 
validity of the call. 



11. Stop scheduling this DMB and 
wait for any users currently 
scheduled. 



■-OUTPUT! 
^ DSG 



DFHKCTYPE=WAIT 



DDIRCODE 



SCD 



SCDEXT 



SCDEXTBA 



SCDESECB 



^ 12. Call DL/I Buffer Handler to 
mark buffers empty. 



DSGDMBNQ 



Buffer Handler 
Module 

2-15 



13. Go to Step 15. 



> 14. For STRT function, check 
validity of call. 



15. Wait for asynchronous logger 
if open and active. 



DFHKCTYPE=WAIT 



-J^ DDIR 



DDIRCODE 



]0 



DLZPRHOO - Program Request Handler CSECT 



Extended Description 


Routine 


Label 


8. 




PROCDSG 


10. If the ACB is not open, set X'Ol' to 
indicate the STOP call is invalid. 




PROCSTOP 


12. Set X'04' in PSTFNCNT to indicate 




GOTOBUFF 


'mark buffers empty request to 
buffer handler'. 






The DMB number is used to index 
into the subpool directory to get the 
subpool number for this DMB. If there 
is no subpool number, bypass calling 
the buffer handler. 






Set X'Ol ' in PSTFNCNT to indicate 
'close DMB request' to open/close 
module upon return from buffer 
handler. 






14. If this data base is not stopped or if 
the ACB is open, X'Ol' in TCAFCTR 
to indicate the STRT call is invalid. Set 
X'09' in PSTFNCTN to indicate 'open 
DMB request' to the open/close 
module. 




PROCSTRT 


15. 




PROCOCR 



Extended Description 



Routine 



Label 
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Figure 2-6.13. System Scheduling Call (Part 4 of 4) 



INPUT 



SCD PST 

I SCDDLICL I IpSTSVI | 



I DD.IRVSRT 



SYSFLGS 



PSTLIPRM 



I 



PROCESS 



l> 16. Call DL/I Open/Close Module. 



I- OUTPUT ■ 



DLZDLOCO 



Open/Close 
Module 

2-14 



> 17. Return. 



S SYS 



f5 




To 

Figure 
2-6.6 
Step 8 



DLZPRHOO - Program Request Handler CSECT 
Extended Description 



Routine 



Label 



16. The open/close module issues and 
SVC2 and CICS/VS loses control for 
the duration of the call. 

The VSAM return code in the DDIR 
upon return from the buffer handler, 
is moved to the user call Hst area (or 
if this is an MPS task, into the PST) 
which is mapped by DLZSYSDS - 
the system call parameter list DSECT. 

17. If this is an MPS task, PSTSEGL and 
PSTSEG must be set up for MPS batch 
PRH (DLZMPIOO) to move data from 
PSTLIPRM to the user call list area. 
PSTUSER already contains the address 
of user call list area. 




BYSYSWAT 
RETURNS 



Extended Description 



Routine 



Label 
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Figure 2-6.14. Suspend Task Processing 

INPUT III " ' I i i- PROCESS I 



From Figure 
2-6.1 
Step 2 

3. 



1 . Place task in suspend chain 
according to task dispatch 
priority. 



2. Suspend the task. 



■-OUTPUT- 






TCA 



DFHKC TYPE=SUSPEND 



3. Resume processing and attempt 
to schedule the task again. 



-r< TCA 




To Figure 
2-6.1 
Step 2 



DLZODP - Task and Resource Scheduling CSECT 



Extended Description 



Routine 



Label 



1 

2. Turn on task suspended by DL/I 
indicator (TCADLIST). 

3. Task has been resumed by DL/I 
task termination (DLZODPO 1 ). 

Turn off the task suspend indicator 
(TCADLIST) aad attempt to 
schedule again. 




TASKSUSP 
SUSPONE 
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Figure 2-6.15. Remote Scheduling Call Interface Routine 



INPUT 



PDIR Entry Address 



User Parameter Address 



From 
Figi 
2-6. 
Step 



■■ PROCESS 

om I 

gure I 
B.I I 



CSAOPFL 



CSADISAC 



RIB 




SCD 


RIBFCTR 




SCDABEND 


RIBISCI 


SCDABSAV 






SCDERRMS 









PSTSV1 



^ 1. Build parameter list for scheduling call. 



2. If MPS application program issues PCB 
call, set X'0809' in TCAFCTR. 
Go to Step 5. 



3. Set RIBPCBM flag if PCBM call. 



4. Call CICS/VS ISC module. 



5. If error, write message DLZ033I 

indicating type of error in message code. 



Online Error 
Message Routine 
2-6.7 



> 6. Restore registers and return. 



■-OUTPUT- 



RPST 

(RPSTISC1 -RPSTISC4) 



A(X'OO') 



A (Remote Interface Block) 



A (User Call Parameter List) 



A (PDIR Entry of Remote 
PSB) 



>TCA 




To 

Figure 
2-6.12 
Step 9 



DLZISCOO - Remote Scheduling Call Interface Routine 



Extended Description 


Routine 


Label 


1. 




DLZISCOO 


2. IfCSADISAC=0 (no DFHISP module 




ISCNOMOD 


available), write message DLZ033I 






indicating no ISC module found. 






4. 




ISCBALR 


5. Abend task after writing message if 




ISCRIBER 


user call parameter list is invalid, 






function string is invalid, or internal 






error detected. 






6. 




ISCRETOO 



Extended Description 



Routine 



Label 
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Figure 2-6.16. Remote Data Base Call Interface Routine 

I PROCESS — 



• INPUT 




From Fig. 

2-6.10 

Steps 


PST 

1 PSTRPSTA 


RPST 

1 RPSTLEN 1 


^ 


R3 






|PDIR Entry Address | 




R11 




User Call Parameter List 
Address 










RIB 






RIBPCBAL 








CSA 






CSAOPFLA 






CSADISAC 








RIB 








RIBISCI 







RIBINDEX 





RIBPCBAL 












RIB 




SCD 




RIBFCTR 




SCDABEND 




RIBISCI 


SCDABSAV 








SCDERRMS 










DOT 




i» 










PSTSV1 




V- 









1. Build parameter list for data base call. 
Reset RIB fields. 



2. Compute PCB index. 



3. Call CICS/VS ISC module. 



4. If invalid call type, return PCB status 
code 'AD'. Go to Step 6. 



-^ ► 5. If error, write message DLZ033I 

indicating type of error in message code. 



Online Error 
Message Routine 
2-6.7 



> 6. Restore registers and return. 



•■OUTPUT- 



RIBISCI 



RPST(RPSTISC1-4) 



A (X'04') 



A (Remote Interface Block) 



A (User Call Parameter List) 



A (PDIR Entry of Remote 
PCB) 



> RIB 



S.PCB 



DBPCBSTC 



)> PST 



To 

Figure 
2-6.6 
Step 9 



DLZISC01 - Remote Data Base Call Interface Routine 



Extended Description 


Routine 


Label 


1. 




DLZISCOl 


2. The PCB address specified by the user 
is tjie address of a local copy of the 
real PCB in the remote system. It 
must be converted to a PCB index to 
identify the corresponding PCB in the 
remote system. 




ISCINDEX 


If PCB index cannot successfully be 
computed, write message DLZ476I 
and abend task. 




ISCNONDX 


3. 




ISCBALRl 


4. 




ISCFUNC 


5. Abend task after writing message if 
user call parameter list is invalid, link 
with remote system is out of service, 
or an internal error was detected. 




ISCRIBCl 


6. 




ISCRETOl 



Extended Description 



Routine 



Label 



^ 



2-78 Licensed Material - Property of IBM 



Figure 2-6.17. Remote Termination Call Interface Routine 



wm INPUT 



PST 



[PSTRPSTA 
RPST 



CSA 



CSAOPFLA 




PROCESS « 



1. Build parameter list for Term call. 



2. Set sync point flag if sync point need 
not be done by ISC module. 



3. Call CICS/VS ISC module. 

^H^ DFHISP 
BALR 

4. Restore registers and return. 



To 

Figure 
2-6.3 
Step 16 



^ RPST (RPSTISC 1-2) 






A (X'08') 




A (Remote Interface Block) 


> 


=118 
RIBISCO 1 





DLZISC02 - Rermbte Termination Call Interface Routine 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



1. 

3. 




DLZISC02 
ISCBALR2 
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Figure 2-7. DL/I Online System Termination 



INPUT 



CSA 



P PROCESS 



From 

CICS/VS 

STP 



1. Locate entry point of DL/I 
termination. 



2. Call DL/I termination. 



DLZODP02 



DL/I System 
Termination 



3. Return to CICS/VS system 
termination program via 
DFHPCTYPE=RETURN. 




To 

CICS/VS 

STP 



•OUTPUT- 



DLZSTPOO - DL/I Online System Termination CSECT 
Extended Description Routine 



Label 



1 . Control is gained from CICS/VS 
System Termination Program (STP) 
because of DLZSTPOOs presence in 
the program list table (DFHPLT). 


DLZSTPOO 


DLZSTPOO 
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Figure 2-8. Call Analyzer 

■■ INPUT III 



R13 



Parameter 
List 



PCB-ADDR 



I/O AREA 



I- PROCESS 1 

From Caller I 
(See Note) I 

> I.Save 



. Save registers and initialize. 



2. Encode function: 

A. Normal Function 
Figure 2-8.1. 

B. Pseudo function - 
Figure 2-8.3. 



3. Update JCB trace and PCB 
segment name, level and key- 
length. Restore registers. 




OUTPUT^ 



PSTSEG 
PSTSEGL 



00000000 



Return to 
Caller 



izz: (zu 

PCB 



DLZDLAOO-Call 



Extended Description 



Routine 



Label 



Note: DLZDLAOO is called from the 
program request handler (DLZBNUCO- 
DLZPRHBO) in a batch system, from 
(DLZODP-DLZPRHOO) in an online 
system, or if at termination, it is called 
from either the application program 
control (DLZRRCOO-DLZPCGOO) or 
from online task termination 
(DLZODP-DLZODPOl). It is also 
called from DLZDXMTO. 

2. The function (first parameter in list) 
is encoded. If no valid function is 
found, *AD' status is returned. 

Normal functions are GU, GN, GHN, 
GHU, GNP, GHNP, DLET, REPL, 
ISRT,ASRT,andCHKP. 

Pseudo functions are GSCD, UNLD, 
and TERM. 







Extended Description 



Routine 



Label 
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Figure 2-8.1. Call Analyzer 

■ INPUT I 



:c 



IL 



Normal Function 

PROCESS • 



r 

From Fig. I 
2-8 step 2A I 



h- 



^ 1. Validate PCB address. Update 
JCB and level table. 



2. Find user's I/O area. 



■-OUTPUT- 



> 3. CHKP Function: 

A. If log not active, return 
to caller. 

B. Unload Routine: 
Figure 2-8.3. 

4. Validate SSAs: 
Figure 2-8.2. 

5. Perform key checking for loading. 

6. Validate sensitivity. 

7. Check length for variable length 
segments. 

— > 8. Call DLZDLOCO to open data sets. 
A. If at least one segment has field 
level sensitivity, call DLZCPY10 
(Figure 2-40). 

9. Call proper action module 

(DLZDLROO, DLZDDLEO, or DLZDLDOO). 




Return to 
Figure 2-8 
Step 3 



PCB 



PST 



DLZDLAOO-Call 



Extended Description 


Routine 


Label 


1. 


If no valid PCB address is provided, 
abend code '476' is returned. The 
JCB and PCB are updated and the 
second part of the level tables 
cleared. 




TESTPCB 
VALIDCK2 
DBPCBFND 
GETJCB 


2. 


If no I/G area is provided, 'AB' 
status code is returned. 






3A. 


If log is not active, return to caller 
with 'XH' status code in the PCB. 
The function call is ignored. 






3B. 


Purge all buffers. 


DLZDLAOl 


DLBUNLD 


4. 


All SSAs in the call are checked. 




SDBLOOP 
SDBLOOPl 


5. 


Key checking is done for load mode 
and the last SSA of an ISRT call. 
For PROCOPT=LS and for HISAM, 
the root key is compared to the 
previously loaded root. Status code 
'LB' indicates invalid sequence. 




LDCHCK 


6. 


Sensitivity checking is done for 
ISRT, DLET, and REPL calls. 
Violations return 'AM'. Extra 
checking is done for DLET and 
REPL calls, if successful GH call 
was executed before 'DJ' status. 




N0TL0AD7 
FSTDATAL 
ISREPL 
TSTISRTS 



Extended Description 



DLZDLAOO 

Routine 



Label 



7. For variable length segments, 2-byte 
field in the user I/O area is compared 
to the maximum length and to the 
key+ keyoffset. If it is greater or 
smaller, 'VI ' status is returned. 

8. When the data base that the PCB 
references is not open, DLZDLOCO 
is called to open all data bases 
related to this PCB. 

A. If field level sensitivity indicator is 
set, exit is made to DLZCPYIO to 
map the user view to the physical 
view. Only done if ISRT, REPL, or 
Retrieve (called on behalf of ISRT) 
action modules will be executed. 

9. For GET calls, DLZDLROO is called. 
For DLET/REPL calls, DLZDLDOO 
is called. For ISRT/ASRT calls in 
load mode , DI ,ZDDLEO is called 
for all segments except for HIDAM 
root, where DLZDLROO is called. 
For ISRT not load mode, 
DLZDLROO is called for all 
segments except HISAM root, 
where DLZDDLEO is called. 




DOVLTST 

ANYSEN 

i 
ACTION 



\ 
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Figure 2-8.2. Call Analyzer 

M INPUT m il 




Level Table 



SDBPHYSC 



Validate SSAs (Part 1 of 2) 

From Figure ■- PROCESS i 
2-8.1 Step 4 






-^ 



L-^ 



1. Find SDB corresponding to SSA. 

A. If SDB has field level sensitivity, 
set indicator in JCB. 



2. Find corresponding level table. 



3. Fill pseudo entries for gaps in 
SSAs. 



4. Fill level table with data from 
SDB. 

5. Validate command code. 

6. For qualified SSAs: 
Figure 2-8.2 (Part 2 of 2) 



Return to 
Figure 2-8.1 
Step 5 



•OUTPUT- 



JCB 

I JCBLVT 



LEVNUSDB 



LEVF3 



DLZDLAOO - Call 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



1 . When the segment named specified in 
the SSA cannot be fcAind in the SDB, 
'AC status is returned. 

A. Flag SDBFLS is on in field SDBXFL 
if SDB has field level sensitivity. 
Flag JCBFLS is set on in field 
JCBLVT to indicate at least one 
segment in call has field level 
sensitivity. 

2. When a hierarchy error is detected, an 
'AC status is returned. 

3. The levels corresponding to gaps in the 
SSAs are filled with data from the 
previous call. For loading, no parent 
level may be empty. 'LD' status is 
returned. 

4. Extra checks are made for DLET and 
REPL calls. When no GH call was 
previously made for this SDB, a 'DJ' 
status is returned. 




SDBLOOP 
SSASDBEQ 

GETLEV 
RIGHTLEV 



5. Valid command codes are C, D, F, L, N, 
Q, T, and X. The status code for invalid 
command code is 'AJ'. For D call and 
no path sensitivity, the status code is 
'AM'. 




NOTDORR 
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Figure 2-8.2. Call Analyzer - Validate SSAs (Part 2 of 2) 



INPUT 



PSDB PDB 



^.J 




PROCESS 



-^ 1. For qualified SSAs. 

A. if SDB indicator set for field level 
sensitivity, find FSB corresponding 
to SSA. 

B. Find FDB corresponding to SSA. 

C. Encode operator. 

D. Load Mode: compare key in SSA to 
key -feedback. 




E 



Return to 
caller 





OUTPUT — 

Level Table 




> 


LEVF3 




LEVMEMBR 




Level Table 




> 


LEVMEMBR 











DLZDLAOO-Call 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



1. For errors in qualification, format 'AJ' 
status is returned. 

A. Flag SDBFLS is on in field SDBXFL if 
SDB has field level sensitivity. If an 
FSB is not found, or if the FSB is not 
marked as an allowable field, status 
code 'AK' is returned in PCB. 

B. Vahd field aames are any normal field 
of the segment, the XDFLD name 

(if the secondary processing sequence 
is used). For a concatenated segment 
field, names of the logical child and the 
destination 'parent are valid. 'AK' 
status for invalidtfield name. 'AC 
status if /CK or /SX is used. 

C. InvaHd opetator returns status code 
'AJ' 

D. If qualified SSAs are specified for 
loading, the key has to correspond to 
the key -feedback area, otherwise 'LD' 
status code is returned. 




NXTBOOL 
PDBEQUAL 

CODES 
ROHIT 




'^ 
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Figure 2-8.3. Call Analyzer - Pseudo Function (Part 1 of 2) 



• INPUT 


Parameter 
List 






function 






I/O area 










PSTPSB 




PDIRADDR 


PSBLIST 


PSBCODE 






R13 















From Fig. 
2-8 Step 28 



From Figure 
2-8.1 Step 38 



I PROCESS ' 



> 1. For a GSCD call, provide address 

of PST and SCD. 



■-OUTPUT- 



2. For an UNLD, TERM, or CHKP call, 
process all PCBs in PSB and: 

A. Call DLZDDLEO for load. 

B. Clear flags and pointers. 

C. Call DLZDBHOO to purge 
buffers. 

D. For a CHKP call, go to Step 4. 

E. For an UNDL call, DLZDLOCO is 
called to close data bases in 
system (PSTOCALL). 

3. Restore registers. 



:> 



PSTBLKNM PSTUSER 



l/Oc 



:0 



Return to 
Caller 



O 



DLZDLA01 -Call 
Extended Description 



Routine 



Label 



1 . Input to the GSCD call is function 
and I/O area address. DLZDLAOl puts 
the SCD and PST addresses in 
PSTBLKNM.Program request handler 
moves it to the I/O area. 

2.' The TERM call is issued in online to 
end a task. The UNLD call is issued in 
batch to end the batch program. 

A. If the UNLD call is made for load 
mode, DLZDDLEO is called to 
write the last records for HSAM 
and HISAM. For HISAM and 
index data bases, a record is 
written with FF keys. 

B. Flags and pointers are cleared 
so that the PSB can be used by 
another task. If program isolation 
is active, clear all enqueue indi- 
cators in all level table entries. 

C. All user buffers are written to 
the data base now. RSTBLKNM, 
DMBNM, and ACBNM are 
cleared. PSTPGUSR flag of 
PSTFNCTNisset. 




PSEUDOCA 

DLBUNLD 
UNLDLOOP 



Extended Description 



DLZDLAOO 

Routine 



Label 



3. If an error occurs during the purge 
of the buffers, an 'XD' status code 
is returned in the PCB. 
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Figure 2-8.3. Call Analyzer - Pseudo Function (Part 2 of 2) 

■n INPUT n i l 1 m PROCESS •— — — 





PST 




PSTPSB 1 




PDIR 




PDIRSILA 1 




PSIL 




PSILDIRA 







SCDDBLOP 



PST 



SCDREENT 



r- OUTPUT 



-- » 4. For a CHKP call, get 
address of DDIR and 
number of entries. 



^ A. If error occurred during 

buffer purge, go to 
Step 4H. 

B. If log is CICS journal, 
go to Step 4E. 



C. Build the log checkpoint 
record. 



D. Get address of DL/I Logger. 





^aK^ 


DLZRDBLO 




DB Logger 
2-16 


E. 


Set checkp< 


Dint indicator. 


F. 


Set PCB status code. 


G. 


Return to Step 3. 


H. 


Set PCB error status code. 


1. 


Return to i 


>tep 3. 



DLZDLA01 - Call 



Extended Description 


Routine 


Label 


4. A. 


All DDIR entries are scanned to 
see if an error occurred (bit 
DDIRNOSE X'04' in byte 
DDIRCODE set on) during purge 
of the buffers. 




DDIRCHK 


B. 


If the log is the CICS journal, 
checkpoint record is not written, 
but a CICS synch point is. 




DDIRCHKl 


D. 


The DL/I Logger is entered 
twice; 1st to move the check- 
point record to its buffer, and 
2nd to force -write the check- 
point record. 






E. 


On return from the logger, the 
checkpoint indicator (bit 
PSTCHKP X'04' in byte 
PSTPCT2 is set on) to notify 
the program request handler to 
issue the checkpoint message. 




BYPASSCK 



Extended Description 




F. Status code of 'blanks' is set 
in the PCB indicating successful 
completion of the CHKP call. 

H. Status code of 'XD' is returned 
in the PCB indicating an error 
occurred during checkpoint 
processing. 




DDIRER 



^i 
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Figure 2-9. Retrieve (part 1 of 2) 

INPUT I 



DB/PSB 
Oescrip. 



DMB 
Prefix 



JCB 
Prefix 



Status 
Info. 



JCB 
Prefix 



Tev" 



JCB 
Prefix 




p PROCESS < 

From I 

Ar>aiyzer I 



L 



h^ 



»1. If unqualified call, go to step 3. Other- 
wise, go to Figure 2-9.1 to try to use 
previous position. 



'2. If GU with unqualified root, go to 
Figure 2-9.4 to determine start key for 
searching. Otherwise, go to Figure 2-9.5 
to analyze qualified calls and continue 
at step 5. 



*3. If not a GN, go to step 4. Otherwise, do 
unqualified GN call analysis and continue 
at step 5. 




OUTPUT- 



- >4. Get first DB segment. 





Mew 
'osit. 




Status 
Info. 




' 








^ 






r ^ 


c :: 



DLZDLROO - Retrieve' Module 
Extended Description 



Routine 



Label 



Extended Description 



DLZDLROO 

Routine 



Label 



I. I/O information: 

• The Position block includes RBA of 
segment (HD) or Irec (HS), RBA of 
previous and next positions (HD), 
offset to segment from begin Irec 
(HS), concatenated key, level, block 
number (HSAM), and block number 
and RAP number of current RAP 
(HDAM). RAP = root anchor point. 

• The DB/PSB Description block 
includes segment and data set 
descriptions, data base specifications, 
sensitivity, and HDAM randomizing 
facility. 

• The Status Information block includes 
prior status codes, segment status, 
and (for output) pseudo abends 

(801 and 800). 

• The Call Information block includes 
SSA and call type. 

• Processing starts with initialization. 
Level of previous call stored in 
LASTLEV. 




LTWSSA 



2. 
3. 




XLTFINDR 

MTNOSSA 
NOSSA 
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Figure 2-9. Retrieve (Part 2 of 2) 

iivipuj III ■ ••• 



DB/PSB 
Descrip. 



PSBDB 


LEV 


SDB 


SDB 


FDB 


DBPCB 


DMBSEC 


DSG 


DSG 




DMB 
Prefix 


Status 
Info. 


JCB 
Prefix 


JCB 
Prefix 


SDB 




LEV 



JCB 
Prefix 



I PROCESS ' 



P OUTPUT! 



5. For ISRT calls: 

A. Determine positioning 
and move segment to user. 



Call DLZGETS (Fig 2-9.7) 
to make retrieved data 
available to user. 




6. Exit. 



To Analyzer 
or Load 
Insert 



position 
for insert, 
SUBPOSC, 
SUBPOSN 


PST 




PSTSEG 




PSTSEGL 





DLZDLROO - Retrieve Module 
Extended Description 



Routine 



Label 



5. DLZSSA is called, if necessary, to find 
insert position for key. Control is then 
passed to DLZISRT to prepare position 
information in the SDB for INSERT. 
Return is to DLZGli IS (Figure 2-9.6). 

PSTSEG is address of data, PSTSEGL 
gives its length. 

For IRST €alls DLZGETS does only 
housekeeping (no data moving). 
DLZGETS will pass control to 
DLZRETN and DLZDLRl to exit. 

For a segment with logical relationship, 
DLZGETS wiU call DLZLOGR for 
data move /insert positioning. 

6. If call type is GET, go to Analyzer. 
If it is ISRT, go to Load/Insert. 




RETURNIE 
NOTEOD 

ARETURN^ 



Extended Description 



DLZDLROO 

Routine 



Label 



i 
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Figure 2-9.1. Retrieve - DLZLTW Routine 

I PROCESS I 



■ IIMK-UI 


LEV 






position, 

call 

info. 












1.SetKEEPIT=1. 



2. Check previous call's hierarchical ~ 

path against SSA's. Loop through 
levels. Check segment type, and for 
qualified SSA, check key feedback area 
(Figure 2-9.2). 



3. If path is accepted, locate previous 
segment (Figure 2-9.3), set KEEPIT=0,'" 



f OUTPUT- 



C> 



LEV 








JCB 




[JCBLEVIC 









and go to step 6. 

4. If discrepancy at root level, set 
KEEPIT=0 and go to step 6. 

5. If discrepancy at lower level, set 
KEEPIT=0 and go to step 6. 

If GN call, position to previous 
segment. 

6. Exit. 



tH 



R6 



SDB 



I SDBPOSN 



rj=> 



To Fig. 2-9 
Step 2 



R6 

1 1 


SDB 


SDBPOSN 1 





DLZDLROO - Retrieve Module 
Extended Description 



Routine 



Label 



Extended Description 



DLZDLROO 

Routine 



Label 



1. KEEPIT=1 indicates: try to use 
previous position. KEEPIT=0 indicates: 
DLZLTW has been left. Other values 
have special meanings. (Entry point 
when Rl 5 = 0.) 

2. DLZKDTE is invoked via DLZSSA which 
is called by return to DLZDLRO and 
back to DLZLTW. Logically, this is part 
of DLZLTW as indicated by KEEPIT=1 . 

Qualified SSA test: After entering 
several routines, return to DLZLTW 
entry LTWSSACA, LTWSSAF, or 
LTWSSAG. 

Lowest level found valid is stored in 
JCBLEVIC. 

3. Set code for exit: Entry UNQLA in 
DLZSSA for GU or ISRT, entry 
SSAEVALH for GN. 

DLZPCHK loads buffer location of 
previous segment into register 6 (except 
for HD or GN calls) and, for HD, loads 
available SUBPOSN positions. 




LTWSSA 

LTWSSAQ 
LTWSSACA 



5. Set exit code for entry SSAEVALL in 
DLZSSA. 
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Figure 2-9.2. 

■ INPUT wmmm 



Retrieve - DLZKDTE Routine 

PROCESS « 

From Caller 



General Segment 
Info. Info. 


JCB 


SDB 


LEV 


DMB 




FDB 







Field 
Value 



Segment 
Data 



R9 = 
LEVSSA 



Rel. 
Operator 



R15 = 
LEVMEMBR 




L 



1. Find FDB for SSA field. If 
found, continue with step 2. 
If not found, set status code 
AK (error in call) and return. 



2. If KEEPIT=1, use key feedback 
area to test against field 
value in SSA. Otherwise use 
segment. 



3. If necessary turn on LEVSTOP. 



4. Test segment or key feedback 
area for acceptance. 



•OUTPUT- 



:0 



status 
code 



o 



c> 



DLZDLROO - Retrieve Module 
Extended Description 



Routine 



Label 



1. 

2. If logical relationship, build concate- 
nated segment. If variable length, 
build data. 

3. If qualification is on key, relational 
operator is greater than or equal to, 
and key is less than or equal to, SSA. 

4. If accepted, R15=0, otherwise, 
R15=4. 


DLZKDTL 
DLZVLRT 


KDTESTI 
KDTESTK 

KDTESTER 
KDTESTHA 
KDTESTE 




^ 
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Figure 2-9.3. Retrieve - DLZPCHK Routine 

INPUT ■ From Caller ff- PROCESS ' 





SDB 




LEV 








1 











LEV 
I LEVTTR 



l.lfGNcall, HD: 

Move SDBPOSC to CURTTR and go 
to step 3. 



2. Position to segment: 

A. Interface to Buffer Handler, 
PSTBYLCT. 

B. Find SDB from segment code. 

C. Get pointers from segment. 

3. Exit 



»i OUTPUT- 



t> 



CURTTR 



X> 



R6 



segment in 
buffer 



t> 



SDBPOSP 



DLZDLROO - Retrieve Module 



Extended Description 


Routine 


Label 


2. For HSAM, more than 1 PCB: restore 




POSCHKA 


position. 

For HISAM: take care of control 

interval splits. 




P0SCHKA2 


B. If not found (segment not 

sensitive), turn on LEVDLET and 
go to step 3. 






C. For HS, relational record number 
and offset to SDBPOSC. SDBPOSN 
already posted by DLZSETL. 






For HD, post twin pointers. 


DLZPSTN 




Clear dependent positions 
(SUBPOSP, SDBPOSC, and 
SDBPOSN). For HD, post child 
pointers. 


DLZPSTA 




For HD logical relation with 
inverted structure, post child 
pointers. Subroutine called by 
DLZPSTA. 


DLZAPST 




Clear SDBPOSP, SDBPOSC, 

and SDBPOSN in preceding sibling 

SDBs unless multi-processing. 


DLZPOSA 





Extended Description 



DLZDLROO 

Routine 



Label 
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Figure 2-9.4. 

■■ INPUT aMM 



Retrieve - DLZTAG Routine 

I PROCESS « 



Segment 

& Field 

Info. LEV 


DMB 


SSA 
info 


PSDBS 


PCB 


FOBS 




KeyFBA | 







From Fig. h PRO 
2-9 Step 2 I 



1. If qualification is on key 
and operator is greater than 
or equal to SSA, position on 
key required. 



2. For GN, go to step 4, otherwise, 
position on start of DB. 



3. Interface to Buffer Handler 
and HSAM I/O. 



— OUTPUT- 



DB Buffer 
Handler 
2-15 



4. Exit. 




:> 



R6 



DLZDLROO - Retrieve Module 
Extended Description 



Routine 



Label 



Extended Description 



DLZDLROO 

Routine 



Label 



1. Set code PSTSTLEQ for DLZSETL. 
Set exit code for entry SSAEVAL 
in DLZSSA. 

2. Set code PSTSTLBG for DLZSETL. 
Set exit code for entry SSAEVAL or 
SSAEVALM in DLZSSA. 

For GN, set exit code for entry 
SSAEVALM in DLZSSA. 

3. DLZSETL branches to subroutines 
according to DB organization. R6 
points to segment in buffer pooL 




MTWISSA 

NOLL 

KPURTC 
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Figure 2-9.5. Retrieve • 

■■ INPUT Mi^-a*— ■— i 



DLZSSA Routine (Part 1 of 2) 
I PROCESS — 



First Part Start 
of LEV Level 


Position 
& status 
conditions 
set by 

RETRIEVE 
in pre- 
vious or 
current 
call 


R4- 

level 

where 

search 

will 

start 




Second Part 
of LEV 






SSA description 
set by 
ANALYZER 










1. If SSA is unqualified, go to 
step 4. 



2. Go to DLZKDTE routine (Fig 
2-9.2) to check acceptability 
of a segment. 



3. If segment is not accepted, 
go to step 9. 



4. Update level table. 

5. Go to next lower level. 



6. If level is not qualified, 
go to step 1 0. 



7. Go to DLZSKPG routine (Fig 
2-9.6) to skip segments. 



8. Go to step 1. 



•OUTPUT- 



> 



First Part 
of LEV 



Description 

of last 

acceptable 

segment 

including its 

hierarchical 

path 



DLZDLROO - Retrieve Module 
Extended Description 



Routine Label 



6. Prepare input (segment type, etc.) 
before entering the central 
DLZSKPG routine. 


DLZSKPG 


SKIPGENS 
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Figure 2-9.5. Retrieve ■ 

■■ INPUT I ' 1 



DLZSSA Routine (Part 2 of 2) 
• PROCESS — 



First part 
of LEV 



Position and 

status 

conditions 

set by RETRIEVE 

in previous 

or current call 



9. Segment is not acceptable. 

A. If LEVCONT is on and not 
at root level, go to Step 9E. 

B. If LEVCONT is on and at root 
level, go to Step 9D. 

C. If current level is root, 

exit to subroutine DLZGER. 

Otherwise, back up one level 
and return to Step 9A. 

D. Get next root segment. 



Interface to 
buffer handler 
and HSAM I/O 



E. 



Go to routine DLZSKPG (Fig 
2-9.6) to skip to next segment 
of same type under present 
root. 



F. Return to Step 1. 



10. Exit. 



r" OUTPUT- 



Return to 
Caller 



DLZDLROO - DLZSSA Routine 
Extended Description 
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Figure 2-9.6 Retrieve - DLZSKPG Routine 



m INPUT 



I Option code I 



SDB R6 


SDBORGN 


Buffer 
location 
of old 
segment 


SDBPOSC 


SDBPOSN 




JCB 




JCBCODE, 

bit 

JCBRDREQ 









From Caller 



PROCESS ' 



► 1. If 'Skip to Next' option, go to step 3. 



2. Prepare control input. _ 

►3. Skip to next segment. 

4. If skip failed, go to step 8. 

5. If 'Skip to Next' option, test if segment is 
sensitive. 

If not sensitive, go to step 3. 

6. If 'Skip to Next Segment' option, test 
segment level and segment code. 

If accepted, go to step 8. 

7. if position still before segment searched, 
go to step 3. Otherwise, indicate failure. 

8. Exit. 



pi OUTPUT- 




r>, 



DLZDLROO - Retrieve Module 
Extended Description 



Routine 



Label 



Extended Description 



DLZDLROO 

Routine 



Label 



1. option is 'Skip to Next Segment' if R15 
is positive. If R15 is negative, the option 
is 'Skip to Specified Segment', 

2. If JCBLVT = X'02', require segment 
code, segment level in physical DB, and 
parentage level. 

3. For JCBRDREQ off, current segment 
is examined first. 

DLZSKPS calls general skip routine 
DLZSKPE, which calls specific skip 
routines: 

For HS, DLZSKPD. 

For HD using SUBPOSN, DLZSTLA. 

In some cases (HS, skip to first child of 
current segment), DLZSKPD is called 
directly from DLZSKPS. 

4. End of ESDS chain reached for HISAM. 




SKIPGENS 
SKIPGEN 



7. If segment code of segment found is not 
larger than that required. 
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Figure 2-9.7. Retrieve - DLZGETS Routine 



■■ INPUT 



From Figure |" PROCESS " 
2-9 Step5B 



LEV 

I LEV LEV I 



segment in 
buffer pool 



--T-i 

I 

I 
I 



^ 



1. Turn on LEVDATA. Turn on 
LEVHELD if Get Hold call. 



2. Save lowest level number. 



3. If logical relationship, call 

DLZLOGR (Fig. 2-9.8) to build 
concatenated segment. 



4. If variable length segment 
build/expand segment. 



5. If field level sensitivity specified, 
call DLZFLDO to build user view. 



6. Move segment to I/O area and give 
segment location and length. 



7. Do final housekeeping. 

8. Exit. 



DLZDLROO - Retrieve Module 



Extended Description 



f OUTPUT! 




PST 




/O Area 




PSTSEG 








PSTSEGL 











Routine 



Label 



6. If batch, only one task active, or no 
field level sensitivity specified, and if 
segment is fixed length and not involved 
in logical relationship, segment data is 
not moved (left in buffer pool). The 
same is true for Insert calls. 

For a path gall (*D command), data has 
already been moved in DLZUPDT and 
is not moved here. 

Address of I/O area is PSBIOAWK. 

7. For Insert calls, return is to Load/Insert. 
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Figure 2-9.8. Retrieve - DLZLOGR Routine 



■■ INPUT 



logical child 
data in buffer 



p PROCESS < 

n Caller I 

k4 



SDB (of 

logical 

child) 



1. For ISRT call go to step 6. 



2. Move logical child. 



3. If not a variable length segment, 
go to step 5. 



4. Expand segment. 



5. Move destination parent 
data. 



6. Call DLZRETI (Fig 2-9.9) to 
insert positioning for logical 
child. 



7. Exit. 



I- OUTPUT- 



C> 



work area 
for concat. 
segment 
data 



DLZDLROO - Retrieve Module 
Extended Description 



Routine 



Ubel 



1. Destination parent concatenated key 
and logical child data. 

6. Destination parent exists. Position 
segment on alternate twin chain. 


DLZYENT 
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Figure 2-9.9. 

■ INPUT ■»» 



Retrieve - DLZRETI Routine (Part 1 of 2) 
PROCESS I 

From C 



SDB (of 

logical 

child) 



logical 
child data 
including 
concaten. 
key 



secondary 
lists 



r ' 

m Caller I 

k4 



1 . Retrieve destination parent 
using concatenated key. 



■- OUTPUT ■ 



destination 
parent in 
buffer 



2. If virtual logical child, go 
to step 4. 



3. Find pointer number and go to 
step 5. 



4. Get pointer numbers. 



5. Get pointers from destination 
parent. 



6. If no key and rule 'FIRST', 
go to exit, step 8. 



> 



Destination 
parent data 



DLZDLROO - Retrieve Module 



Extended Description 


Routine 


Label 


1. LEVUSEOF indicates offset of key for 
this level in concatenated key. 






Destination parent data is stored 
behind concatenated key and logical 
child. 


DLZRETK 




2. For virtual logical child (insert through 
logical path), positioning on physical 
twin chain is required. 






3. Find logical twin pointer number. 
Find logical child first and last pointers 
in logical parent. Find FDB for key of 
logical child, if present. 




RETISRTF 


4. Find physical twin pointer number. 
Find physical child first and last 
pointers in parent. Find FDB for key 
of virtual logical child, if present. 




RETISRTR 


Logical twin key is moved to key 
feedback area. 


DLZUPDL 





Extended Description 



DLZDLROO 

Routine 



Label 



6 
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Figure 2-9.9. Retrieve - DLZRETI Routine (Part 2 of 2) 

■■ INPUT ■HM^MMM^MlBMai |B PROCESS < 



. Follow alternate twin chain 
until key (if present) larger 
than key of inserted segment, 
or to end of chain. Go to 
exit, step 8. 

Special case: matching key 
found in chain: 



A. Key unique: If segment de- 
leted logically, go to 
exit, step 8. Otherwise, 
set status code 'IT, and 
go to exit, step 8. 



Key not unique: If rule is 
'FIRST', go to exit, step 8. 
Otherwise, follow twin 
chain until larger key is 
found or to the end of 
chain. 



r» OUTPUT- 



8. Exit. 




O 



DLZDLROO - Retrieve Module 
Extended Descriptton 



Routine 



Label 



7. Alternate means: Logical twin chain 
if entering from physical path, 
physical if ervtering from logical path. 

If sequence field is in destination 
parent concatenated key (possible 
only for virtual logical child), the 
virtual area (physical parent, 
concatenated key, and logical child 
data) is built in PSBIOAWK, calling 
routines DLZYSTC and DLZMOVA. 
As an indication, the first byte of 
PSTWRKT5 is set to X'FF' 

A. For logically deleted segment, 
turn on bit JCBDEFDL in 
field JCBCODE. 




RETISRTL 
RETIVK 
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Figure 2-9.10. Retrieve - DLZFLDO Subroutine 



INPUT 



] 1-: 




PROCESS I 



L. 



1. Initialize field exit routine interface list. 

2. If concatenated segment, update PER. 

3. If segment is variable length, update PER. 

4. Call DLZCPY10. 

5. Exit. 



] — J 



OUTPUT! 

FER 



> FER 



DU 



FERPPSA 




1 



Return to 
caller 



DLZDLROO - Retrieve Module 



Extended Description 



Routine 



Label 



Extended Description 



Routine Label 



1 . FER is located at address in PSBNDXWK. 

2. The concatenated segment has been built 
in PSBIOAWK and the user's view must be 
constructed in another area (PSBXIOWK). 
For path calls (*D command), the user's 
view will be moved back to PSBIOAWK 
after conversion to the user's view. 

3. Fields may be defined that are outside the 
physical segment, so they must be 
defaulted so conversion errors do not 
occur. If such fields do exist, the segment 
is moved to PSBXIOWK and the defaults 
provided. 

4. If a conversion error is detected, an 
immediate exit to the Call Analyzer is 
taken. 




FLDCSEG 
FLDVAR 
FLDERR 
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Figure 2-10. Load/Insert (Part 1 of 2) 



Pi INPUT 



DL/I Ctrl 
Blocks 


User I/O 
Area 


1 




1 


t 4 



From Caller 
(See Note) 



I PROCESS " 



1. Initialize. 



2. Call subroutine depending on 
data base and TROCOPT': 



DLZDDLEO - Load Insert Module 
Extended Description 



Routine 



Label 



Note: DLZDDLEO is called from 
DLZDLAOO (Call Analyzer) or from 
DLZDLROO (Retrieve Module). 







HSAM Load 
2-10.1 



HISAM Load 
2-10.2 



HISAM Root 
Insert 

2-10.3 



HIISRTR 



HISAM Depen- 
dent Segment 
Insert 

2-10.4 



HDAM/HIDAM 
Load 

2-10.6 



f OUTPUT- 



01 



DL/I Ctrl 
Blocks 



DL/I 
Buffer 
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Figure 2-10. Load/Insert (part 2 of 2) 

■■ INPUT I 



P PROCESS ' 



2. (con't) 



HDAM/HIDAM 



Not Load 
2-10.7 



Not Load End- 
ing Routine 
2-10.8 



Load Ending 

Routine 

2-10.9 



4. Return 



■-OUTPUT- 




Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



Note: DT7DDLE0 is called from 
DLZDLAOO (Call Analyzer) or 
from DLZDLROO (Retrieve 
Module). 







^ 
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Figure 2-10.1. HSAM Load 
pi INPUT 




PROCESS " 



"1^ 1. On first entry, initialize 

DTP and I/O buffer address. 



2. Issue locate mode 'PUT' when 
record is full. 



> 3. Move segment to I /O area 
and update tables. 



f OUTPUT- 



I 



4. For UNLD call, issue last 
'PUT 




To Fig 2-10 
Steps 




DLZDDLEO-HSAM Load 



Extended Description 



Routine 



Label 



1 . DLZDLOCO stores the I/O area address 
in the JCB. It is updated with every 
'PUT' 

The record size is taken from the DTF 
and the error exit address in the DTF 
is updated 




HSAMFRST 
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Figure 2-10.2. H ISAM Load 

■ INPUT II 



JCBPRESF 




LODBLOGK 


SDB 


LODOFFSET 




LODLRECL 






DMBPRSZ 


LODBLOCK 


DMBDL 


LODOFFSET 




LODLRECL 



LODOFFSET 



PROCESS I 



A. Root segments: 

Write previous KSDS record 
and get buffer for new one. 



B. Dependent segments: 

If no more space in ESDS, 
write previous ESDS and 
get buffer for new one. 



-OUTPUT- 



2. Move segment to buffer 



3. UN LD call: 

Write previous KSDS and ESDS 
record. Write new KSDS record 
with root key of TF's. 



To Fig 2-10 
Step 4 



c> 



LODOFFSET 



DLZDDLEO- HISAM Load 



Extended 


Description 


Routine 


Label 


1. 
A. 


Record length, buffer address, 
and offset into buffer is stored 
in the JCB and passed from call 
to call. 

When a call for a new root seg- 
ment is made, the buffer handler 
(DLZDBHOO) is called to write 
the previous KSDS record and 
to get buffer space for the new 
one. 


WRITEOLD 


HISIMPLS 


B. 


If there is space left iii the ESDS 
records, continue with step 2. 
Otherwise, the RBA of the next 
ESDS record is calculated, the 
pointer of the current ESDS 
record updated, and the buffer 
handler called to write the ESDS. 
Another call to DLZDBHOO is 
made to get buffer space for a 
new ESDS record. 


NEWRBA 


NEEDOSAM 




ABEND 855 is given if VSAM 




CATERROR 




retums an RBA different from 








the calculated one. 







Extended Description 



DLZDDLEO 

Routine 



Label 



2. The segment is moved, the PCB key 
fed back, and the level table updated. 
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Figure 2-10.3. HISAM Root Insert (Part 1 of 2) 



INPUT 




PROCESS I 



^ 1. Call DLZDBHOO to get segment 
with key EQ or HI. 



^ 2. If key of returned segment is 
EQ, update SDB and level 
table. If it is not EQ, go to 
step 7. 



3. Return II status when segmen' 
was not deleted. 



Otherwise, log old segment. 



^OUTPUT- 



KSDS 
Record 



SDB 



DLZRDBLO 



DB Logger 

2-16 



^ 4. Move segment and update PCB 
and level table. 



To Fig 2-10 
Step 4 



c> 



5. Indicate only one segment in 
record and log new record. 



KSDS 
Record 



DLZDDLEO - HISAM Root Insert 



Extended Description 


Routine 


Label 


1 . The buffer handler is called with 
'PSTSTLEQ' to get a segment with 
key equal or higher than the one to 
be inserted. 


GOTOFUNC 


HIISRTRO 


2. If the key returned is higher, 
processing continues with step 7. 




ISIS015 


3. When the delete flag is not on in the 
segment returned, status code 'IF is 
returned to the caller. 






The data base log module is called to 
log the old KSDS record. 




ISSDELET 


4. The new root segment is moved to the 
KSDS record. The PCB key feedback 
area and level table are updated. 






5. The pointer to the ESDS record is 
cleared and '00' moved to the KSDS 
record behind the root segment. The 
data base log module is called to log 
the new KSDS record. 







Extended Description 



DLZDDLEO 

Routine Label 
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Figure 2-10.3. HISAM Root Insert (Part 2 of 2) 
pi INPUT I I ■■ PROCESS ' 



OUTPUT- 



6. Write record block. 



EH 



> 7. Call DLZDBHOO to get buffer 
space for KSDS record. 



^ 8. Move segment, update PCB and 
level table. 



9. LOG THE NEW RECORD. 



10. Call DLZDBHOO to write the 
new KSDS record. 



11. Update tables. 




DLZDDLEO - HISAM Root Insert 
Extended Description 



Routine 



Label 



6. The buffer handler is called to write 
the KSDS record back (PSTBFALT). 

7. The buffer handler is called 
(PSTGBSPC) to get buffer space 
for one K^SDS record. 

10. PSTPUTKY is used to write the new 
KSDS record. 


GOTOFUNC 
GOTOFUNC 

GOTOFUNC 


ISNOTEQ 
ISSIMPLl 



Extended Description 



DLZDDLEO 

Routine 



Label 
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Figure 2-10.4. HISAM Dependent Segment Insert 
INPUT — I ri PROCESS I 



Buffer DMB 




1. Log old record. 



2. Compute length of shift data 
and check rest of records for 
valid segment codes. 



3. Move shift data and new seg- 
ment. 

Figure 2-10.5. 



4. Log record. 



f OUTPUT- 



> 



DB Logger 
2-16 



5. Correct position of other 
users of same data base. 



6. Write one, two, or three 
records. 



:> 



ABEND 
'861' 






SDB 




LEVTAB 

























DLZDDLEO - HISAM Dependent Segment Insert 



Extended Descriptiob 


Routine 


Label 


1. DLZDLROO has located within a KSDS 
or ESDS record, where the new segment 
has to be inserted. The old record is 
logged from insert point on to the right. 




HIISRTR 


2. The record is inspected from the insert 
point to the right. The segment code 
is checked and the length of the remain- 
ing segments is added to give the 
'shift data'. 




HAVELREC 
COMPSHFT 
ABEND861 


4. Log the old record from insert point 
to the right. 


DLZDLBLO 


LOGLEVCO 


5. SDBs and level tables of other PCBs 
that are positioned in the same record 
are updated to show the shifted position 
of the segments. 




INSADJUS 


6. DLZDBHOO is called to write back the 
old record and to write one or two new 
ESDS records. 


GOTOFUNC 


KNNDONEX 
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Figure 2-10.5. NOTSC Routine (Part 1 of 2) 



INPUT 



DMB 




PSTUSER 




I/O Area 









m^ PROCESS I 

From Fig. I 
2-10.4 I 

Step 3 I 



OUTPUT! 



L « 



1. Segment and shift data fit in 
old record: 

A. Move shift data' right. 

B. Move segment to buffer and 
update tables. 



2. Segment fits in old record 
but not shift data 

A. Calculate RBA of new ESDS 
record. 

B. Get buffer space for one 
ESDS record. 

C. Chain old and new record 
and log chain. 

D. Move 'shift data' to new 
ESDS record. 

E. Log new record. 

F. Move segment to old record. 












old r«cord 












new record 











DLZDDLEO ^ HISAM Dependent Segnnent Insert 
Bxtended Description ^^^^^^ 



Routine 



Label 



Extended 



DLZDDLEO 

Routine Label 



1. When both the new segment and the 
shift data fit in the old record, the 
shift data is moved right by segment 
length. The segment is moved to the 
record and the PCB and level table are 
updated. 

2. A new ESDS record has to be built. 



DFSDLIMS 



GETNESDS 

LOGCHAIN 

COMMOVE 

LOGNEWOS 

DFSDLIMS 



OVERLAPL 



SEGTOOLD 
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Figure 2-10.5. NOTSC Routine (Part 2 of 2) 
■■ INPUT — — — I r" PROCESS < 



. 3. Move segment and 'shift data' 
to new ESDS. 

A. Calculate RBA of new ESDS 
record. 

B. Get buffer space for new 
ESDS record. 

C. Chain the two records and 
log the chain. 

D. Move segment to new record 
and update records. 

E. Move 'shift data' to new 
record. If it does not fit, 
repeat step 3 A, B, and C. 

F. Log one or two new ESDS 
records. 



DB Logger 
2-16 



C> 




I OUTPUT! 



new record(s) 



DLZDDLEO -HISAM Dependent Segment Insert 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



3. Neither segment or 'shift 
data' fit in the old record. 
A new record has to be 
built. If it does not have 
room for the segment and 
'shift data', another new 
ESDS record has to be built. 
The records are chained and 
logged. 


GETNESDS 

LOGCHAIN 

DFSDLIMS 

COMMOVE 

LOGNEWOS 

NEWRBA 

GOTOFUNC 


SEGTONEW 
SHIFTOO 
SHIFT0S2 
LOGLEVCO 
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Figure 2-10.6. HDAM/HIDAM Load (Part 1 of 2) 



m INPUT I 



— ^ ^ Qg^ j.ggl length of segment. 



From Fig. 
2-10 Step 2 




PROCESS I 



I 



OUTPUT- 



Deal with 
Variable 
length segment 






I/O Area JCB 

[ID 



^ 2. Simulate retrieve positioning. 



C>^ 



3. If segment is present, replace 
it. Otherwise, get space ifor 
segment. 



:> 



HD Space 
Management 
2-13 



4. Update anchor point in HIDAM 
and log change. 



> 



5. Move segment to buffer and 
update tables. 



C> 



SDB I/O Area | 


SDBPOSC 






LEVTAB 






DBPCB 




1 







DLZDDLEO - HDAM/HIDAM Load 



Extended Description 


Routine 




1. The subroutine VLDSEG takes the 
length from the PSDB for fixed 
length segments and from the user's 
I/O area for variable length segments. 
The compaction exit routine is called, 
if it exists. 


VLDSEG 


DFSDHDLO 


ABEND '863' is given when the com- 
paction routine changes the sequence 
field. 




ABEND863 


2. For HIDAM root segments, DLZDLROO 
did the positioning. For other segments, 
it is done here. 






3. Space management is called to get 
space for the segment. If the segment 
was deleted in one path only, i.e. it 
was not removed by DLZDLDOO, the 
segment is replaced with the new data. 


TOSPACE 


GETSPACE 
SPACEOUT 


4. HIDAM root segments without PTB 
pointers are chained off the anchor 
point in chronological sequence. 




SPACEOK 


5. Move segment to buffer, update PCB 
key feedback, and update level table. 


DFSDLIMS 


ANCHOROK 
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Figure 2-10.6. HDAM/HIDAM Load (Part 2 of 2) 

r> PROCESS < 



■ iiMr* 








PSDB 


-• - 


SDB 

1 











-l 



6. Update prefix. 

7. Log inserted segment. 



■- OUTPUT! 



DB Logger 
2-16 



8. Update prefixes of parents and 
twins. Update HI DAM root 
anchor points and log the 
changes. 



4, 



To Fig 2-10 
Steps 



^[ 



DLZDDLEO - HDAM/HIDAM Load 
Extended Description 



Routine 



Label 



6. The prefix ot the segment is updated: 
physical twin pointers, physical parent 
pointer, logical parent pointer, and 
logical twin pointers. 

7. The data base log module is called to 
log the inserted segment. 

8. Call space management (DLZDHDSO) 
to update the prefix of physical twins, 
logical twins, physical parents, and 
logical parents. Update anchor point 
for HDAM root segments and call the 
data base log module to log all changes. 



TOSPAGE 

UPPARENT 

UPPREFIX 



MYPREOK 



UPBITMAP 
BITMAPOK 
HDDANCORl 



Extended Description 



DLZDDLEO 

Routine 



Label 
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Figure 2-10.7. HDAM/HIDAM Not Load (Part 1 of 2) 

■ INPUT . ■ I- PROCESS — 



I/O Area 




(See Note) 

1. Get real length of segment. 



■-OUTPUT- 



VLDSEG 



Process Vari- 
able Length 
Segment 



2. If segment is present, replace 
it. Otherwise, get space for 
segment. 



O 



DLZDHDSO 



HD Space 
Management 
2-13 



3. Update anchor point in HI DAM 
and log change. 



> 4. Move segment to buffer and 
update tables. 



O 



mz] 



DLZDDLEO - HDAM/HIDAM Not Load 



Extended Description 


Routine 


Label 


Note: When this entry is used, DLZDLROO 




DFSDHDIO 


had done the positioning. 






2. Space management (DLZDHDSO) is 


TBSPACE 


GETSPACE 


called to get space for the segment. If 




SPACEOUT 


the segment was deleted in one path 




POSTPST 


only, i.e. it was not removed by 




SPACEOK 


DLZDLDOO, the segment is replaced 






with the new data. 






3. fflDAM root segments without PTB 




SPACEOK 


pointers are chained off the anchor 






point in chronological sequence. 






4. Move segment to buffer, update PCB 


DFSDLIMS 


ANCHOROK 


feedback and the level table. 







Extended Description 



DLZDDLEO 

Routine 



Label 
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Figure 2-10.7. HDAM/HIDAM Not Load (Part 2 of 2) 









PSDB 

1 1 





SDB 

1 











r 



1 PROCESS ' 



f OUTPUT- 



5. Update prefix. 

6. Log inserted segment. 



DB Logger 
2-16 



7. Update prefixes of parents 
and twins. Update HI DAM root 
anchor point and log the 
changes. 



^ 



To Fig 2-10 
Step 3 



:> 



DLZDDLEO - HDAM/HIDAM Not Load 



Extended Description 


Routine 


Label 


5. The prefix of the segment is updated: 






physical twin pointers, physical 






parent pointer, logical parent pointer, 






and logical twin pointers. 






6. The data base log module is called to 




MYPREOK 


log the inserted segment. 






7. Call space management (DLZDHDSO) 


TOSPACE 


UPBITMAP 


to update the bitmap if required: 


UPPARENT 


BITMAPOK 


update prefix of physical twins, 


UPPREFIX 


HDDANCOF 


logical twins, physical parents, and 






logical parents. Update anchor point 






for HDAM root segments, call the 






data base log module to log all changes. 
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Figure 2-10.8. Not Load Ending Routine 













1 DMBFLAG 






1 SDBFLAG 













LEVTAB SDB 






1 




- 




PSDB Sec List 






1 
















PSTUSER 












LEVTAB " 

1 1 















PROCESS I 



1. Call DLZDXMTO if segment is 
indexed. 



2. If segment was LP, insert LC 
now. 



3. For LC segments: 

Replace data of LP if it was 
not inserted before. 



4. For PATH ISRT, insert next 
segment. 

5. Clean up and return. 



i- OUTPUT- 



t>l 



LP-SEGMENT 



:> C 




PSTSEG 



DLZDDLEO - DFSDXNTO Ending Routine for Not Load 
Extended Description Routine 



Label 



1. Index Maintenance is called to build 
the primary or secondary index for 
an index source segment. 

2. If the ISRT call was for a concatenated 
segment, the destination parent was 
inserted first (if it did not exist before 
the ISRT call). The next step is to 
insert the logical child segment. The 
insert process is repeated from Fig- 
ure 2-10 step 2. 

3. If the ISRT rule of the destination 
parent is virtual and this segment 
existed already, then the data of the 
destination parent is replaced. 
DLZDXMTO is called to replace the 
index if the destination parent is an 
index source segment. 

4. If there are more segments to be 
inserted in a PATH, then point to the 
next segment in the I/O area and 
continue with Figure 2-10 step 2. 




NXTLEVIS 
NOLPAREN 



Extended Description 



DLZDDLEO 

Routine 



Label 
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Figure 2-10.9. Load Ending Routine 

I PROCESS ' 









DMBOFLG 1 


SDB 








PSDB 










1 






LEVTAB 


1 PSTUSER 1 ■ 


1 












— > 



1. Write work data set for LC 
and LP segments. 

2. Build index for index source 
statement. 



3. Load next segment for PATH 
ISRT. 



4. Call DLZDXMTO for UNLD call. 



5. Clean up and return. 



■-OUTPUT- 



:> 




C> 



PSTSEG 




R15 


00000000 




00000000 1 


PSTSEG L 






1 00000000 









DLZDDLEO- HIISNXLV Ending Routine Load Mode 
Extended Descrtption Routine 



Label 



1 . If the segment just loaded was a 
logical child or a logical parent 
segment, DLZDSEHO is called to 
write the work data set. If opening 
of the work data set fails due to 
'ASSGN SYS013,IGN' and the segment 
was an LP, processing continues. On 
any other open failure, 'ABEND 864 

is given. 

2. If the segment is an index source 
segment, DLZDXMTO is called. It 
writes the work data set or writes the 
index pointer segment directly. 

3. For PATH ISRT, the pointer to the 
I/O area is updated and processing 
continues with Figure 2-10 step 2. 

4. DLZDXMTO is called to inspect all 
PSDBs of the DMB for index source 
segments and builds an FF key index 
pointer record for it. 




CALLERN 
CALLWORK 

NOLO AD 
NCALLNDX 

N0INDEX2 
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Figure 2-11. Delete/Replace 

■INPUT 




PROCESS I 



^ 1. Initialize addresses. 



2. If callisREPL, 



Process 
Replace 



3. If call is DLET and data base 
is HtSAM 



Process HI SAM 
Delete 

2-1 1 .4 



4. If call is DLET and data base 
is HDAM or HIDAM 



Process HD/H ID 
Delete 

2-11.5 



5. Return to DLZDLZOO with 
return code in register 15. 



. OUTPUT- 



R15 



DLZDLDOO - DLET/REPL Module 



Extended Description 


Routine 


Label 


1 . The segment to be deleted or replaced 


DLZDLDOO 


DELREPEP 


is identified by the contents of 






JCBLEVIC. Position is established by 






DLZDLROO in the previous call. 






2. 




REPLACE 


3. 




DELETE 


5. If a user error occurred, DBPCBSTC 




RETURN 


has return code. If abend, PSTERCDl 






has abend code and registers are saved 






at SCDABSAV + 8. 
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Figure 2-11.1. Replace 



INPUT 



A (I/O Area) 




PROCESS I 



(REPLACE) 



1. Ensure that key field has 
not been changed. 



PSTUSER 




Buffer 


1 










segment 













PSTUSER 



1a(I/0 Area) 



"^ 2. Set address, length, and 
offset of segment. 



3. Ensure data changed and key 
field not changed. 

4. If segment is an LC, 

A. Ensure LC can be replaced. 



■-OUTPUT- 



'^^ B. If data changed: 



Replace LP 
2-11.2 



PSTUSER 


UDLENGTH 


A (segment) | 


j length 


UDOFFSET 


DBOFFSET 


offset in 
user area 


offset 
in I/O 
Buffer 


ALTKYADJ 




adjust- 
ment for 
alternate 
key 





»^ "^ 5. Replace segment. 



Replace 

segment 

2-11.2 



6. If another level to replace, 
go to step 1. Return when 
done. 




user segment 



DLZDLDOO - DLET/REPL Module 
Extended Description 



Routine 



Label 



1. 




REPCKOl 


2. PSTUSER will have new value if path 
call had been made. The length is taken 
from the first two bytes of the I/O 
area if segment is variable length. 






3. Additional logic is needed if segment 
is variable length or if PROCSEQ is 
specified. 




CHKRLP 
CHKREPLl 


4. A. The following check is made 
for the LC: 




CHKREPFF 


Neither the physical nor logical 
key fields can be changed (DA 
status). 






The following checks are made for 
the destination parent: 




CHKRLPOl 


a) If data didn't change, no replace. 







Extended Description 


Routine 


Label 


4. (con't) 






b) If replace rule is physical, RX 






status. If logical, no change and 






blank status. If virtual, the kev 






of the LP cannot be changed 






(DA status). The segment can 






be replaced. 






B. 




REPPAROl 


5. This replaces normal segment or LC. 




REPFINAL 


6. If path call, see if another segment 




LEVDONE 


in hierarchy can be replaced. 
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Figure 2-11.2. Replace Data (Part 1 of 2) 



INPUT 



DMBCBSTC 





PROCESS < 



(DOREPL) 

1. Do PI queuing if necessary. 



2. If segment has secondary 
indicies and is not marked 
physically deleted: 

A. Go build work area for 
index maintenance. 

B. Call DLZDXMTO. 



■-OUTPUT- 



Index Main- 
tenance 

2-12 



C. If blank or NE status, 
continue. 



3. If segment is variable length: 



REPVLS 



Replace 
variable 
2-11.3 



^ 4. Log old data in buffer. 



Physical replace 
code 51 

2-16.2 






Delete Work Area 



code, data 
length 



DLZDLDOO - DLET/REPL Module 
Extended Description 



Routine 



Label 



2. Index Maintenance needs the actual 
concatenated key of this segment. 
If return code is NE, we still continue 
processing because index is now set 
as per new data. Work area is freed. 

3. 

4. DBLPHYR+DBLPHYRO is set in 
first byte of PSTWRKl. 




DOREPL09 
DOREPLIO 
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Figure 2-11.2. Replace Data (part 2 of 2) 



INPUT I 



User I/O 
I new data | 



I 



PROCESS ' 



^5. Move new data to buffer. 



6. Log new data. 




^"^ 


DLZRDBLO 




Physical 

replace code 50 
2-16.2 


7. Mark buffer altered. 


^"^ 


DLZDBHOO 




BFALT label 
2-15 



8. Return 




OUTPUT- 



I pstbfaltI 



DLZDLDOO - DLET/REPL Module 



Extended Description 



Routine 



Label 



Extended Description 



Routine Label 



5. The address of the user's I/O 
area is in PSTUSER. 

6. DBLPHYRissetinPSTWRKl 
with the length of the segment. 




DOREPL92 
REPL18 
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Figure 2-11.3. 

INPUT — 



Replace Segment 



Buffer 



I Delete byte 



segment 



A (new data) 



From Fig. 
2-11.2 
Step 3 



• PROCESS ' 



Jr ^' Compress new data if required. 

2. If data separated from prefix, 
replace separated data and go 
to step 4. 



(REPVLS) 



Replace 

separated 

data 



3. If new length is GT old 

length and GT minimum, sepa- 
rate data from prefix and go 
to step 6. 



.OUTPUT- 



Separate data 
from prefix 



-^ 4. If length is equal to old 
"T< length, or if both are LE 

minimum, replace old data and 
go to step 6. 



"^^ Buffer 



REPVLS20 



Replace 
old data 



5. If new length is LT old 
length, replace old data. 



To Fig 2-1 1.2 
Step? 



prefix 



prefix 



DLZDLDOO - DLET/REPL Module 



Extended Description 


Routine 


Label 


2. When the data is previously separated 


DLZDLDRO 


REPVLSOl 


and the new data length is less than 






the old length, an attempt is made to 






relocate the new data adjacent to the 






prefix. 






3 When the old segment size is not large 




REPVLS03 


enough for the new segment, the data 






is separated from the prefix. A pointer 






overlays the first four b>*tes of the old 






data and will be used to fmd the new. 






5 When the new data will fit in the old 




REPVLSIO 


location, it is moved over the old data 






with any excess bytes being freed. 






All changes to the data base have 




REPVLS38 


been logged. 







Extended Description 



Routine 



Label 
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Figure 2-11.4. H ISAM Delete 
■■ INPUT 



old segment 




PROCESS I 



(DLETE) 

1. Get segment to be deleted. 



DLZDLDOO - DLET/REPL Module 
Extended Description 



DB Buffer 
Handler 



2. If data base is simple HISAM, 

A. Indicate physical delete 
for Logger. 



B. 



Indicate PST erase for 
Buffer Handler. 



3. If data base is HISAM, 

A. Set proper delete bits. 

B. Indicate logical delete 
for Logger. 

C. Indicate PSTBFALT for 
Buffer Handler. 



4. Log the change. 



5. Update the data base 



I- OUTPUT- 




DBLPHYD 




length of 
segment 




PSTFNCTN 




Ipsterase 


Buffer Pool 


1 


PSTWRKl 


DBLLGDLT 


length of 2 


PSTFNCTN 




Ipstbfalt 



Routine 



Label 



1. 

2. The entire segment to be erased is 
logged. 

3. Only the segment code and delete 
byte are logged. 




DELTOl 
SHISAM 

DELT41 

logdlt 
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Figure 2-11.5. HDAM/HIDAM Delete 
p INPUT 



I PROCESS 




DLZDLDOO - DLET/REPL Module 
Extended Description 



Routine 



LA. LC will be marked logically 


DLZDLDOO 


DELTHD 


deleted (LD) if delete rule = 




ILCDLT 


physical or logical and segment 






not PD (physically deleted). 






B. A logical parent can have no 




DELT09 


active logical children. An LC 




PHYSCAN 


must not be accessable by his 






logical path. 






2. This is needed to remember where 




DELTHA 


we are, during scan of data base and 




NEWOMB 


to build concatenated keys. 






3. LCF and LCL pointers in logical 




REQSCAN2 


parents, and LTF and LTB pointers 




SCANDMB 


in logical children, will be updated 




REQDOWN 


now. 






4. Segments may be marked deleted or 




REQBOTM 


physically removed. 






5. All work sets are freed. 




ENDLTSCN 



Extended Description 
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Figure 2-11.6. Delete Segment (Part 1 of 2) 

■■ INPUT HMM— i«-»-i«i— ^ ^ PROCESS < 



DMBFLAG ' 



Delete 
Work Area 




(REQBOTM) 

1. If segment is an ISS; delete 
index pointer. 



f OUTPUT ■ 



DLZDXMTO 



Index Main- 
tenance 

2-12 



> 2. If segment cannot be removed, 
mark PD, log, and go to step 
6. 



3. Change all pointers to this 
segment. 



^> pstfnctn 
Ipstxmdlt 



DB Logger 
2-16 



4. Mark position changes in SDBs. 



5. Free segment's space. 



Delete 
byte 



> SDB 



HD Space 
Management 
2-13 



y PSTFNCTN 

Ipstfrspc 



DLZDLDOO - DLET/REPL Module 



Extended Description 


Routine 


Label 


1 . If the index source segment (ISS) has 
been marked physically deleted (PD), 
no index maintenance is performed. 
Delete processing continues with 
blank or 'NE' status from DLZDXMTO. 


DLZDLDDO 


REQBOl 


2. A segment will not be physically 
removed if still required because 
of a logical relationship. Note that 
the delete work area and DL/I blocks 
(primary PSDBs) are used as input 
to every step. 




REQB02 


3. If segment is an LC or LP, the logical 
relationship pointers (LC, LP, and 
LT) have already been changed. 


DLZDLDDO 
DLZDLDAO 


FREESPCE 
FRSPCOO 


4. The current position (SDBPOSC) is 
marked 'lost' in this caller's PCB. If 


DLZDLDAO 


PRSPC05 
MARKSDB 


any other PCB has position on this 
segment, the position should be 
changed to bypass this segment. 






5. DLZDHDSO makes the log calls for 
the physical delete. 


DLZDLDAO 


FRSPC05G 



Extended Description 



DLZDLDOO 

Routine 



Label 
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Figure 2-1 1.6. Delete Segment (part 2 of 2) 

INPUT III . I r PROCESS 1 



6. If Starting segment is not yet 
deleted, get next segment and 
process it. 



7. Return 



■-OUTPUT- 



To Fig 2-1 1.5 
Step 3 




DLZDLDOO - DLET/REPL Module 



Extended Description 



Routine Label 



Extended Description 



Routine 



Label 



6. Next segment is physical 
twins, sibling, or parent. 

7. At end, a final log call is 
made to DLZRDBLO which 
signifies delete is finally 
accomplished. 


DLZDLDOO 
DLZDLDOO 


BOTMIB 
ENDLTSCN 



^ 
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Figure 2-12. Index Maintenance 

INPUT m 



PSTDSGA 



I- PROCESS < 



From Caller 
(See Note) 



1. Save registers and PST fields. 



j 1 ^ 2. Analyze function. 

A. If ISRT/ASRT, insert new 
index pointer segment. 



Insert New Index 
Target Segment 
2-12.1 



If DLET, delete old index 
pointer segment. 





*^ 


LDELETE 




Delete Old Index 
Target Segment 
2-12.2 


c. 


If REPL, replace index 
pointer segment. 




^^ 


LREPL 




Replace Index 
Target Segment 
2-12.3 


D. 


If UN LD, insert FF-key. 




¥^ 


LUNLOAD 




Insert FF-keys 
2-12.4 



3. Restore registers and PST. 



Ti 



DLZDXMTO - Index Maintenance 



Return to Caller QL.2DXMT0 



> 

[1 


Work area 






PST 




> 


PSTIQPRM 




PSTUSER 


PSTDSGA 


PSTBYTNM 


PSTDBPCB 









Extended Description 


Routine 


Label 


No'te: DLZDXMTO is called from 
DLZDDLEO or DLZDLDOO. 






2. When called from DLZDDLEO, the 
function is ISRT, ASRT, UNLD, or 
REPL. When called from DLZDLDOO, 
the function is REPL or DLET. 
PSTWRKl contains the PSDB address 
of the index source segment for DLET 
or the LSDB address of the index source 
segment. 






A. Construct and insert all index 
pointer segments for this index 
source segment that should not 
be suppressed. 


LINSERT 




B. Construct and delete all old 

index pointer segments existing 
for this index source segment. 


LDELETE 





Extended Description 




Label 


2 


(con't) 








C. Construct all old and new index 


LREPL 






pointer segments that can be con- 








structed from that index source 








segment. Depending on the data 








changed and the status of sup- 








pression, delete old index pointer 








segment, or insert new index 








pointer segment, or delete old 








and insert new index pointer 








segment, or replace "data of index 








pointer segment. 








D. If DLBL card is provided, write 


LUNLOAD 






index pointer segment with all 








FF-keys for all index data bases 








to belonging to this PCB. 
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Figure 2-12.1 
■■ INPUT 



Insert New Index Target Segment 

I PROCESS < 




1. Find secondary lists and length 
of index pointer segment. 



2. Construct index pointer segment. 

3. If index pointer segment is 
suppressed, go to step 1 and 
take the next secondary list. 
Otherwise, build temporary 
blocks. 

4. If initial load, put index 
pointer segment. 

5. If Not Load mode, call DLZDLAOO 
to insert index pointer segment. 



Call Analyzer 
2-8 



6. If last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 



> Work area 



See note 




Return to 
Caller 



•OUTPUT- 



DLZDXMTO - Index Maintenance 



Extended Description 


Routine 


Label 


Note: The input control blocks are used 






in all process steps. The output work area 






is modified in all process steps. 






1 . Find SECLISTs and PSDBs of index 


LBLDWKA 




source segment, index target segment, 






and index pointer segment and save 






their address in work area. Decide if 






primary or secondary has to be built. 






Find length of index pointer segment. 






sequence field, segment length, and 






protected data length. 






2. For primary indexes, move HIDAM 


LBLDXNS 




root sequence field from user I/O 


LGRBACK 




area to work area. For secondary 


LNULSUP 




indexes, construct SRCH, SUBSEQ, 


LCALLBH 




and DDATA fields. 






3. When the index entry has to be 






suppressed due to SRCH equal to 






NULLVALUE or due to exit routine 






return code, the index pointer segment 






is not inserted. 







Extended Description 






3. (con't) 






Build temporary blocks: 


LBLDCTLB 




• SDB 






• Segment name=sequence field name 






of index pointer segment 






• Update Index Maintenance JCB 






andDSG. 






4. If DLBL cards are provided, write 


LLOAD 




index pointer segment to index data 


LWORKDS 




base and call DLZDLOCO to open 


LCALLBH 




index data base if not open yet. Other- 


DLZDLOCO 




wise, write index pointer segment to 






workfile and call DLZDSEHO to open 






the workfile. 






5. Prepare DL/I call list to call 


LINXNS 




DLZDLAOO with an *X call. 


DLZDLAOO 




6. When the last secondary list is 






reached, exit is to LRETURN. On 






error in secondary Usts, exit is to 






LABND772 (abend code 772). 
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Figure 2-12.2. Delete Old Index Target Segment (Part 1 of 2) 
INPUT — ^i— . I V* PROCESS ' 




1. Find secondary lists and length 
of index pointer segment. 



2. Construct index pointer segment. 

3. If old index pointer segment is 
suppressed, go to step 1 and 
take the next secondary list. 
Otherwise, build temporary 
blocks. 

4. Call DLZDBHOO to read old 
index pointer segment. 



DLZDBHOO 



DB Buffer 
Handler 
2-15 



5. Change delete flag and zero 
pointer in index pointer seg- 
ment. 

6. Call Logger to log index 
pointer segment changes. 



DB Logger 
2-16 



> Work Area 



.OUTPUT- 



DLZDXMTO - Index Maintenance 



Extended Description 


Routine 




Note: The input control bloclcs are used 






in all process steps. The output work area 






is modified in all process steps. 






I. Find SECLISTs and PSDBs of index 


LBLDWKA 




source segment, index target segment, 






and index pointer segment and save 






their address in work area. Decide if 






primary or secondary has to be built. 






Find length of index pointer segment, 






sequence field, segment length, and 






protected data length. 






2. For primary indexes, move HIDAM 


LBLDXNS 




root sequence field from user I/O 


LGRBACK 




area to work area. For secondary 


LNULSUP 




indexes, construct SRCH, SUBSEQ, 


LCALLBH 




and DDATA fields. 






3. When the old index entry has to be 






suppressed due to SRCH equal to 






NULLVALUE or due to exit routine 






return code, the index pointer segment 






is not inserted. 







Extended Description 


Routine 


Label 


3. (con't) 






Build temporary blocks: 


LBLDCTLB 




• SDB 






• Segment name=sequence field name 






of index pointer segment 






• Update Index Maintenance JCB 






andDSG. 






4. The Buffer Handler is called (PSTSTLEQ; 


LGOXNS 




to find the old index pointer segment. 


LDOXNS 




If it is not found, or it is already 






deleted, or the pointer or key are not 






correct, an NE status code is returned 






to the caller. 






5. Delete flag is set to CO. 






6. Chain maintenance and logical delete 


DLZRDBLO 




calls are made to data base module. 
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Figure 2-12.2. Delete Old Index Target Segment (Part 2 of 2) 
INPUT I I ■■ PROCESS -H— 



7. Call DLZDBHOO to write back the 
changed index pointer segment. 



OB Buffer 
Handler 
2-15 



8. If last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 




P OUTPUT ■ 



DLZDXMTO - ktdGx Maintenance 



Extended Description 



Routine Label 



7. The Buffer Handler is called 
(PSTBFALT) to write the 
changed index pointer segment 
back. 

8. When the last secondary Hst is 
reached, exit is to LRETURN. 
On error in secondary Usts, 
exit is to LABND772 (abend 
code 772). 


DLZRDBLO 





Extended Description 



Routine 



Label 
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Figure 2-12.3. Replace Index Target Segment (Part 1 of 2) 

INPUT I prnm pi PROCESS — - 



From 
Figure 2-12 
Step 2C 



t> 



1. Find secondary lists and length 
of index pointer segment. 



2. For primary index, continue with 
step 1. Otherwise, construct old 
index pointer segment. 

3. Construct new index pointer 
segment. 

4. Replace index pointer segment: 

A. If old and new index pointer 
segment are suppressed, go to 
step 1 and take next second- 
ary list. 

B. If old index pointer segment 
was suppressed, insert new 
index pointer segment. 

C. If old and new index pointer 
segment were not suppressed 
and SRCH and SUBSEQ fields 
not changed, replace index 
pointer segment. 

D. If the old and new index 
pointer segment were not 
suppressed and SRCH and 
SUBSEQ fields were changed, 
delete old index pointer seg- 
ment and insert new index 
pointer segment. 



I 



OUTPUT- 



C> 



DLZDXMTO - Index Maintenance 



Extended Description 


Routine 


Label 


Note: The input control blocks are 






used in all process steps. The output 






work area is modified in all process 






steps. 






1. Find SECLISTs and PSDBs of 


LBLDWKA 




index source segment, index 






target segment, and index 






pointer segment and save their 






address in work area. Decide 






if primary or secondary has 






to be built. Find length of 






index pointer segment, sequence 






field, segment length, and pro- 






tected data length. 






2. Construct old index pointer seg- 


LBLDXNS 




ment from SRCH, SUBSEQ, and 


LGRBACK 




DDATA fields. 


LNULSUP 
LCALLBH 




3. Construct new index pointer 


LBLDXNS 




segment from SRCH, SUBSEQ, 


LGRBACK 




and DDATA fields. 


LNULSUP 
LCALLBH 





Extended Description 


Routine 


Label 


4. Replacing of the index pointer 






is done in different ways. 






depending on suppression of 






old and new index pointer 






segment. 






A. When both old and new index 






pointer segments are suppressed. 






no action takes place. 






B. Continue with insert sub- 


LINXNS 




routine 






C. DLZDBHOO is called to read 


LGOXNS 




the old index pointer segment. 


LROXNS 




On errors, NE is returned. The 






data base log module is called 






to log the old index pointer 






segment, and after the change of 






the DDATA fields, the new index 






pointer segment. DLZDBHOO is 






called again to write the index 






pointer segment back 






(PSTBFALT). 






D. 


LGOXNS 
LDOXNS 
LINXNS 
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Figure 2-12.3. Replace Index Target Segment (part 2 of 2) 

■■ INPUT II I pi PROCESS < 



4. (con't) 

E. If the old index pointer 
segment was not suppressed, 
but the new one was, delete 
the old index pointer segment. 

5. If last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 



To Fig 2-12 
Step 2C 



.OUTPUT- 



DLZDXMTO - Index Maintenance 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



5. When the last secondary Ust is 
reached, exit is to LRETURN. 
On error in secondary Hsts, 
exit is to LABND772 (abend 
code 772). 
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Figure 2-12.4. Insert FF- Keys 

INPUT I 



SDB 



From Fig. 
2-12 Step 
2D 



::> 



> PROCESS " 



1. Loop through all PSDBs to 
find index source segment. 



2. Find length and keylength of 
index pointer segment. 

3. Move FF-key to index pointer 
segment. 

4. Build temporary blocks. 

5. Write the index pointer segment 
to the data base or to the work- 
file. 

6. If last PSDB, return. Otherwise, 
go to step 1 and get next PSDB. 



P OUTPUT- 




To Fig 2-12 
Step 3 



O 



DLZDXMTO Index Maintenance 



Extended Description 


Routine 


Label 


Note The input control blocks are used 






in all process steps. The output work 






area is modified in all process steps. 






1. DLZDDLEO passes the LSDB 






address of the root segment with 






an UNLD call. The DDIR 






address is used and all PSDBs 






in that DMB are inspected if an 






index exists. 






2. Find length of index pointer 


LBLDWKA 




segment and its key length. 






Decide if primary or second- 






ary index has to be built. 






3. Move FFs in the length of the 


LBLDXNS 




index pointer segment sequence 






field to the index pointer 






segment. 







Extended Description 


Routine 


Label 


4. Build temporary blocks: 


LBLDCTLB 




• SDB 






• segment name = sequence 






field name of index 






pointer segment 






• update index maintenance 






JCB and DSG. 






5. Write index pointer segment to 


LLC AD 




index data base if DLBL cards 


LW0RKD5 




are provided. Call DLZDLOCO 


LCALLBH 




to open index data base if not 


DLZLOCO 




yet open. 
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Figure 2-13. HD Space Management 

INPUT II 



DSG PST 

I DSGDMBNoll PSTWRK1 



-| p PROCESS 

From Caller I 

' " V^l. Initial! 



1. Initialize work fields in 
the PST. 



2. Test for FBA. 

A. If yes, go to Figure 2-13.5. 

3. Determine function requested. 

A. If Get Space, go to Figure 2-13.1. 



■-OUTPUT- 



B. 

C. 
D. 

E. 

F. 

G. 

4. Exit. 



If Get Space Close to Root 
Anchor Point, go to Figure 
2-13.1. 

If Free Space, go to Figure 2-13.2. 

If Modify the Bit Map, go to 
Figure 2-13.3. 

if Backout Get Space, go to 
Figure 2-13.4. 

If Backout Free Space, go to 
Figure 2-13.2. 

If Backout Modify Bit Map, go to 
Figure 2-13.3. 



■ Return to 
^^^iJ Caller 



> 



PSTDMBNM 



DLZDHDSO - Space Manager 



DLZDHDSO 



Extended Description 


Routine 


Label 


1. PSTWRKl contains the length of the 






space to be obtained or freed. 






2. A. If the device is FBA, the device 


DLZDCIOO 




characteristics must be obtained 






and the number of CIs per track 






and CIs per cylinder calculated. 






3. A. Get space in a data base CI for 


DLZGGSPC 




the specified segment as close as 






possible to a specified base RBA. 






The caller passes the address of 






the involved segment's PSDB in 






R5 and the base RBA in 






PSTBYTNM. 






B. Get space in a data base CI for 


DLZGGSPC 




the specified segment as close as 






possible to a root anchor point. 






The caller passes the address of 






the involved segment's PSDB in 






R5 and the CI number/RAP 






number (in the format BBBR) 






of the involved root anchor 






point in PSTBYTNM. 







Extended Description 


Routine 


Label 


3. (con't) 






C. 


Free space that has been allocated 
for the specified segment in a 
data base CI. The caller passes the 
address of the involved segment's 
PSDB in R5. 


DLZFRSPC 


■ 


D. 


Turn on or off the bit in the Bit 
Map representing the specified CI 
of a data base. The caller specifies 
the CI number in PSTBLKNM. 


DLZDHDSO 


FIXBTMP 


E. 


Backs out a previously processed 
'Get Space' call. 


DLZDHDSO 




F. 


Backs out a previously processed 
'Free Space' call. 


DLZFRSPC 




G. 


Backs out a previously processed 
'Modify Bit Map' call. 


DLZDHDSO 


FIXBTMP 
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Figure 2-13.1 

M INPUT ■»— 



Get Space (Part 1 of 2) 



PST 

I PSTBYTNiyT] 





Data Base CI 






FSE 




FSE 




CI number 1 






Bit Map 














Buffer 
Prefixes 






1 1 






CI number 1 






1 Bit Map 1 











From Figure 
2-1 3 Step 3 




PROCESS 



(See Note) 

. Get the CI into the buffer 
pool that is pointed to by 
the base RBA. 



r- OUTPUT! 



DLZDBHOO 



DB Buffer 
Handler 
2-15 



2. Determine if enough space is 
available in this CI. If 
there is enough, store RBA of 
space and, if necessary, update 
the Bit Map. 



3. If no space is found, go to 
step 5. 



4. Locate another data base CI, 
get it into the buffer pool, 
and go to step 2 for the 
following: 

• A CI that is on the same 
track that is in the buffer 
pool. 

• A CI that is on the same 
cylinder that is in the 
buffer pool. 

• A CI on the same track that 
has a 1-bit in the Bit Map. 



> 



DL/i Buffer 



P 



Bit Map 



DLZDHDSO - Space IVlanager 



Extended Description 



Routine 



Label 



Note: For the functions *Get Space' and 
'Get Space Close to RAP', the following 
csects are used: 

Main routine: DLZDHDSO 

DLZDHDSO calls DLZGGSPC. 

DLZGGSPC calls DLZRCHBK, 
DLZLLCLC, DLZRRHPL, DLZRRHMP, 
DLZMNLCT, and DLZMMUDT. 

DLZRRHPL calls DLZRCHBK. 

DLZRRHMP calls DLZRCHBK. 

2. If distributed free space has been 
specified, a check is made if this block 
is to be left free. If not;-a check is 
made to see if a percentage of this 
block is to be left free. If so, this 
percentage is added to the space 
requested. 

To determine if enough space is 
available in a CI, the FSE's in this 
CI are checked. If there is more than 
one FSE in a CI, the free space with 
the largest of the following values 
that will not cause a Bit Map change 
is taken: 







Extended Description 



Routine 



Label 



2. (con't) 

• the size itself 

• the size+minimum segment length 

• the size+2. 

A Bit Map Change is necessary if the 
data base CI cannot accomodate the 
maximum size segment because the 
available space has been used. The 
Bit Map update is performed by 
DLZMMUDT. 

4. The calculation of the CI numbers 
for a given range is done by routine 
DLZLLCLC. 

Searching through the buffer prefixes 
is done by routine DLZRRHPL. 

Searching through the Bit Map is done 
by routine DLZRRHMP. 
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Figure 2-13.1. 

i INPUT I 



Get Space (Part 2 of 2) 



p PROCESS ' 



• A CI in the same cylinder 
that has a 1-bit in the Bit 
Map. 

• A CI being within the delta 
cylinders that is in the 
buffer pool. 

• A CI being within the delta 
cylinders that has a 1-bit 

in the Bit Map. 

• The next available CI at 
the end of the data base. 



5. If no space is found, store 
the error code. 



6. Exit. 



r OUTPUT- 



To Figure 
2-13 Step 4 



:> 



DLZDHDSO - Space Manager 
Extended Description 



Routine 



Label 



5. A return code of X'OC will be returned 
to the caller. 







Extended Description 


Routine 


Label 









4 
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Figure 2-13.2. Free Space 







From Figure 
2-1 3 Step 3 










DL/I Buffer 






PST 




— 


1^^^ (See Note) 


/ 


PSTBUFFA 




1 

1 

_J._: 


r 

> 1. Scan through the chain of FSEs in the 
specified data base CI to find the FSE 
which applies. 

^ 2. Check if there is more free space on the 

rinht anrl/nr Ipft «iHp nf thp ^Pampnt to 


PSTOFFST 


PSTBLKNM 


\ 


^ DL/I Buffer 
Data Base CI 


H 








be freed. 

^ 3. Build a new FSE and/or change existing 
FSE(s). 

4. Log the change of the data base CI. 




ni /I Riiffpr — — — 


> {DataBase CI 1 1 


1 


Data Base CI | 








^ ^-^ 








> 1 I 1 


<-4 








Log Tape 


DLZRDBLO 




DB Logger 
2-16 


5. Issue BFALT call to the Buffer Handler. 




^—4 


DLZDBHOO 




DB Buffer 

Handler 

2-15 












CI number 1 




^ 6. If necessary, update the dh ividp. 




-^ PI numtipr 1 






Bit Map 1 






7. Exit. 


B 


^ 


To Figure 
2-13 Step 4 


1 Bit Map 1 



DLZDHDSO - Space Manager 
Extended Description 



Routine 



Label 



Extended Description 



DLZDHDSO 

Routine Label 



Note: For the functions 'Free Space' 
and 'Backout Free Space', the 
following csects are used: 

Main routine: DLZDHDSO 

DLZDHDSO calls DLZFRSPO 

DLZFRSPO calls DLZMMLCT 
and DLZMMUDT. 

1. The scan will be finished when a FSE 
with a higher offset than the one in 
PSTOFFST is reached, or, when the 
end of the FSE chain is reached. 

2. The purpose of this check is to find 
out whether there will be a contig- 
uous piece of free space after process- 
ing the current Free Space call. 

6. A Bit Map change is necessary if the 
data base CI can accomodate the 
maximum size segment after process- 







6. (con't) 

ing the Free Space call. In this case, 
the appropriate bit in the Bit Map 
has to be turned on. The Bit Map 
update is performed by routine 
DLZMMUDT. 
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Figure.2-13.3. Modify Bit Map 

> INPUT . ... J 



ACB Ext. 


PST 


1 DMBLRECL | 


PSTBLKNM 




UBTMPOfS 




PROCESS 1 



DL/I guffer 



Bit Map 



|PSTWFiK1-4 



Buffer 
Prefix 



(See Note) 

1. Get the CI number of the Bit 
Map that applies. 

2. Locate this CI in the buffer 
pool. 



DB Buffer 
Handler 
2-15 



^ 3. Apply the change to the Bit 
Map. 



> 4. Log the change of the Bit Map. 



DLZRDBLO 



DB Logger 
2-16 



> 5. Mark the buffer containing 
the Bit Map as altered. 



DB Buffer 
Handler 
2-15 



r- OUTPUT! 




:> 



PST 

Ipstblknm" 



c> 



> 



:> 



DL/I Buffer 

i Bit Map 



Q 



Log Tape 



Buffer 
Prefix 



DLZDHDSO - Space Manager 



DLZDHDSO 



Extended Description 


Routine 


Label 


Note: For functions 'Fix Bit Map' and 






'Backout Fix Bit Map', the following 






csects are used: 






Main Routine: DLZDHDSO 






DLZDHDSO calls DLZMMLCT and 






DLZMMUDT. 






1. This step is performed by routine 






DLZMMLCT. 






2. A 'Byte Locate' call is issued. 


DLZDBHOO 




3. The update of the Bit Map is performed 






by routine DLZMMUDT. 






5. A 'Buffer Aher' call is issued. 


DLZDBHOO 





Extended Description 



Routine 



Label 
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Figure 2-13.4. Backout Get 

I INPUT ■— — — 



Space 





PST 






PSTBUFFA 




PSTOFFiST 




DL/I Buffer 






1 







PSTOFFST 



DL/I Buffer 



Buffer 
Prefix 



|- PROCESS — 

From Figure I 
2-1 3 Step 3 I 

^■■■IV (See Note) 



DLZDHDSO - Space Manager 
Extended Description 



1. Scan through the FSEs of the 
given CI and find the FSE 
that applies. 



2. If the previously freed space 
cannot be found, store error 
code and go to step 9. 



3. If the previously freed space 
is not in the middle of a freed 
area, go to step 5. 



4. Create a dummy FSE. 




V ^^ — [> 5. Change the FSE(s) to reflect 
the aquisition of the space. 



6. Prepare the information for 
logging the data base change. 



> 7. Mark the buffer as altered. 



DB Buffer 
Handler 
2-15 



> 8. Update the Bit Map if necessary. 



9. Exit. 



To Figure 
2-1 3 Step 4 



.OUTPUT- 



:> 



:> 



:> 



:> 



C> 



DL/I Buffer 



PSTWRK1-4 



"^ Buffer 

"^ Prefix 



Bit IS/lap 



Routine 



Label 



Note: This function backs out a Free 
Space call processed previously. The 
following csects are used: 

Main routine: DLZDHDSO 

DLZDHDSO calls DLZRCHBK. 

2. PSTOFFST contains the offset to the 
part of the data base CI which was 
freed during the Free Space call to be 
backed out. 

3. A return code of X*OC' is stored in 
PSTRTCDE. 

7. A 'Buffer Alter' call is issued to the 
Buffer Handler. 


DLZDBHOO 





Extended Description 



DLZDHDSO 

Routine 



Label 



8. A Bit Map update is necessary if the 
data base CI cannot accomodate the 
maximum length segment after backing 
out the previously processed Free 
Space call. The Bit Map update is 
performed by routine DLZMMUDT. 
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Figure 2-13.5. FBA Support Device Characteristics Routine 



m INPUT 




PROCESS I 



1. Issue SHOWCAT to obtain volume 
serial number of data base. 



> 2. Issue GETVCE to obtain device 
characteristics. 



3. Is device FBA? 



4. If no, issue message DLZ831I and 
end task. 



5. If yes, calculate CIs per track and 
CIs per cylinder. 



6. Calculate scan value. 

7. Exit. 



i- OUTPUT! 



--. 



To Figure 
2-1 3 Step 3 



o 



> 



c> 



c> 



DLZDHDSO - Space Manager 



Extended Description 



Routine 



Label 



Extended Description 


Routine 


Label 
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Figure 2-14. 

• INPUT •— 



Open/Close 



m PROCESS ' 

m Caller I 

^■^■jW F( 

^ StfiDS. D( 



T" 



l~> 



\~> 



— > 



Note; For each of the following 
steps, DOCDCB (Figure 2-14.1) 
is called. 



1. If PSTFNCTN = PSTOCPCB, 
loop through all SDBs and 
secondary lists to find all 
ACBs to be opened. 



2. If PSTFNCTN = PSTOCDCB, 
open this one ACB. 



3. If PSTFNCTN = PSTOCDSG, 
process all ACBs in DSG. 



4. If PSTFNCTN = PSTOCDMB or 
PSTOCALL, process all ACBs 
in one DMB or all ACBs in all 
DMBs. 



I- OUTPUT! 



Return to 
Caller 



> 



ACB 
Extension 



JCB 



DDIR 

Iddircode I 



DLZDLOCO - Open/Close 



Extended Description 


Routine 


Label 


1 . This function is used by the utilities 


PCENTRY 


AROUND 


DLZRDBCO and DLZURGPO. It is 


PSROUT 




also used by DLZDLAOO when the 


DOCDCB 




first data base call to a not open data 






base is issued (batch only). For 






PROCOPT=L, only one data base is 






opened. For all other processing 






options, all related data bases are 






opened as well (index data bases and 






logically related data bases). 






2. DLZDLROO uses this function for 


ACBENTRY 




positioning a HSAM data base at the 


DOCDCB 




start point. It is also used by 






DLZURDBO. It opens only one ACB, 






i.e. for HISAM only KSDS or ESDS. 






3. DLZDLDOO uses this function when it 


DGENTRY 




finds a logically related data base that 


DOCDCB 




is not opened (this can happen because 






of delete sensitivity propagation). 







Extended Description 


Routine 


Label 


4. PSTOCALL + PSTOCOPN : 


DENTRY 
DROUTINE 




DLZOLIOO uses this call to open all 


DOCDCB 




data bases in the system eligible for 






initial opening (online only). 






PSTOCALL + PSTOCCLS : 






This call is used to close all ACBs in 






the DL/I system (e.g. DLZDLAOO). 






PSTOCDMB : 






This call is used by DLZOLIOO for 






deferred opening (online). It is also 






used by DLZDXMTO and by data 






base utiUties. It opens/closes one 






ACB (two ACBs for HISAM). 
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Figure 2-14.1. Open/Close DOCDCB Routine 

I INPUT M l ■ 2T4" '^' ^ PROCESS • 



ACBEXT • 




1. Issue DOS OPEN. 



2. Issue 'MODCB' to update the 
exit list. 



3. Issue 'SHOWCB' and compare 
DMB entries to VSAM define 
entries. 



4. For an empty ESDS file, write 
control record. 



5. Log the open record. 



6. For HISAIVI KSDS, go back to 
Step 1 to open ESDS. 



7. Call compression routine, if 
necessary. 



OUTPUT- 



pOUT 



Return to 
Fig 2-14 



DLZDLOCO - Open/Close 



Extended Description 


Routine 


Label 


1 . This part is called from all steps of 


DOCDCB 


DOCOPEN 


Figure 2-14 for opening. If the data 






base is open, return immediately. 






Immediate return is also done when the 






call is PSTOCALL and initial opening 






is not planned. Unsuccessful opens 






have return error code in PST and flag 






in JCB. 'DLZ020r is issued. 






2. The exit list is updated with the 


DOCMOD 




address of the error handling routines 






of DLZDBHOO. 






3. Control interval size, relative key 


DOCSHOW 




position, and key length of DMB is 






compared to VSAM catalog entries. 






MISMATCH: DLZ025I, DLZ027I, 






and DLZ028I. 






For HISAM, the number of logical 






records in VSAM catalog has to be 






zero for PROCOPT=L. For HD, the 






high used RBA is inspected. Message 






'DLZ023r is issued for conflicts. 







Extended Description 



Routine 



Label 



4. The first control interval is written 
(for HISAM, as many records as fill 
one CI). It contains DL/I control 
information. For HD, the ACB is 
closed and opened again to simulate 
'NOT LOAD' to VSAM. 

7. All PSDBs are inspected to determine 
if a compaction routine with 'INIT' 
specified exists. 


DOCFIRST 
DOCVARI 


NOTHIDAM 



^ 
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Figure 2-15. DB Buffer Handler (Part 1 of 2) 



INPUT 



\. 



Flag Name 


Hex Code 
02 


PSTBYLCT 


PSTBKLCT 


01 


PSTBYALT 


06 


PSTBFALT 


05 


PSTGBSPC 


03 


PSTFBSPC 


04 


PSTBFMPT 


04 


PSTPGUSR 


07 



p PROCESS I 

From I 

Caller I 

^[■■l^ DLZDBh 



What function is requested? 



1. ForHDAMorHIDAM: 

A. Byte locate. 

(See Figure 2-15.1, Step 1) 

B. Block locate. 

(See Figure 2-15.1, Step 4) 

C. Byte alter. 

(See Figure 2-15.2, Step 1) 

D. Mark buffer as altered. 
(See Figure 2-15.2, Step 3) 

E. Get buffer space. 
(See Figure 2-15.3) 

F. Free buffer space. 
(See Figure 2-15.9) 

G. Mark buffer as empty. 
(See Figure 2-15.9) 

H. Purge buffers. 

(See Figure 2-15.10) 



P OUTPUT! 



DLZDBHOO - Buffer Handler CSECT 



Extended Description 


Routine 


Label 


1. 
A. 


Locate relative byte number. 


DLZDBHOO 


BYLCT 


B. 


Locate relative block number. 


DLZDBHOO 


BKLCT 


C. 


Locate a relative byte number 
and mark buffer altered. 


DLZDBHOO 


BYALT 


D. 


Mark^ buffer containing 
data as altered. 


DLZDBHOO 


BFALT 


E. 




DLZDBHOO 


GBSPC 


F. 




DLZDBH03 


MRKEMPT 


G. 




DLZDBH03 


MRKEMPT 


H. 


Purge all buffers altered by 
a task. 


DLZDBH03 


PGUSRl 



Extended Description 



Routine 



Label 
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Figure 2-15. OB Buffer Handler (Part 2 of 2) 
!■ INPUT ■ ■■ PROCESS < 



Flag Name 
PSTBYLCT 


Hex Code 


02 


PSTSTLEQ 


09 


PSTSTLBG 


OC 


PSTWRITE 


08 


PSTPUTKY 


OD 


PSTMSPUT 


OE 


PSTBFALT 


05 


PSTGETNX 


08 


PSTERASE 


OA 



2. For HI DAM index. Simple HISAM, 
orHISAIVKESDSorKSDS). 



A. Read a record. 

B. SETL equal. 

C. SETL begin. 

D. Write a new record to 
HISAM ESDS. 

E. Insert a record by key into 
a HISAM KSDS. 



F. 
G. 
H. 

3. Exit 



Insert record(s) sequentially 
into a HISAM KSDS. 

Write a record by RBA to a 
KSDS or ESDS. 

Read the next record in a 
KSDS. 

Erase a record from a KSDS. 



■-OUTPUT- 



Return to 
Caller 



DLZDBHOO - Buffer Handler CSECT 



Extended Description 


Routine 


Label 


2. 
A. 


Read a record by RBA from 
a KSDS or ESDS. 


DLZDBH02 


HSREAD 


B. 


Get a record by root key from 
a KSDS. 


DT7.DBH02 


STLEQ 


C. 


Read the record containing 
the first root segment in a 
KSDS. 


DLZDBH02 


STLBG 


D. 




DLZDBH02 


LOWRITE 


E. 




DLZDBH02 


PUTKY 


F. 




DLZDBH02 


MSPUT 


G. 




DLZDBH02 


HSWRITE 


H. 




DLZDBH02 


GETNX 


I. 




DLZDBH02 


HSWRITE 



Extended Description 



Routine 



Label 
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F igu re 2- 1 5. 1 . Byte Locate/Block Locate 
I INPUT ■ I- PROCESS I 



PST 



From 

Figure 2-15 
Step 1 A 



From 

Figure 2-15 
Step 1 B 



1. Convert the given RBA to a VSAM 
control interval (CI) number and 
an offset within the control 
interval. 

2. Locate the buffer address. 



pi OUTPUT- 



LOCATE Routine 
2-15.4 



3. Go to Step 6. 

' BKLCT: 

4. Locate the buffer address. 



LOCATE Routine 
2-15.4 



^ 5. Convert the CI number to a RBA. 
6. Exit. 




To 

Figure 2-15 

Step 3 



PSTBLKNM 



PSTOFFST 



S PST 



PSTBYTNM 



DLZDBHOO - Buffer Handler CSECT 
Extended Description 



Routine 



Label 



DLZDBHOO 

Routine 



Label 



1 . The relative byte number for the 
control interval is retrieved from 
PSTBYTNM. 

5. The same as in Step 1 except that 
a control interval number is passed 
in PSTBLKNM. 


DLZDBHOO 


CONVER 
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Figure 2-15.2. Byte Alter/Buffer Alter 



INPUT 



PST 



From 

Figure 2-15 
Step 1 C 



I PROCESS I 



r- OUTPUT- 



Z^ 1. Convert the RBA to a block 
number and an offset. 

2. Locate the buffer address. 



From 

Figure 2-15 
Step 1 D 



PPST . 



^ 3. Turn on the bit in the buffer 
prefix to indicate that the 
buffer was modified or altered 
by this user. 

4. Exit. 




DLZDBHOO - Buffer Handler CSECT 



Extended Description 



Routine 



Label 



1 . Byte alter is a combination of byte 
locate (Figure 2-15.1, Steps 1-3) and 
buffer alter (Figure 2-15.2, Steps 3 
and 4). 

3. The bit that is turned on is in the 
2-byte field BFFRUSID. The 1 6 bits 
correspond from right to left to the 
user ID indicated in the PPST. If a 
user ID higher than 1 6 is assigned, 
two or more users share the same 
bit. 


DLZDBHOO 


MARKALT 



Extended Description 



DLZDBHOO 

Routine 



Label 




Va 



2-144 Licensed Material - Property of IBM 



Figure 2-15.3. Get Buffer Space 

■ INPUT I 



PSTBYTNM 



][ 



1 



J 



IP PROCESS ' 



From 

Figure 2-15 
Step 1 E 



BFPL 



Buffer Pool 
Control Blocks 



DLZDBHOO - Buffer Handler CSECT 
Extended Description 



" ^ 1. Get the address of the selected 
buffer subpool. 



> 2. Search the buffer prefixes of 
the subpool to find a buffer 
that can be used. 

3. If a reusable buffer cannot be 
found, wait until one becomes 
available. 



j> 4. Move the control interval ID 
into the buffer prefix. 



Z^ 5. If the buffer is busy, wait 
for it. 



i: 



Write the buffer if necessary 



Mark buffer 'non-reusable' 



8. Put the address and the size 
of the buffer into the PST. 



9. Exit. 



OUTPUT- 



Routine 



Label 



1 . The subpool information table (SBIF) 
is used to find a buffer subpool with 
buffers that contain the least number 
of bytes needed for this space 
request. 

2. Buffers that are marked non-reusable 
or are permanent write error buffers 
cannot be used. 
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Figure 2-15.4. LOCATE Routine 

■■ INPUT i»i 




From 

Figure 2-15.1 
or 2-15.2 



"PROCESS I 



DLZDBHOO - Buffer Handler 
Extended Description 



. -.1^ 1 . Search buffer prefixes for the 
requested block. 



L_. 



LOCATE Buffer Search 
2-15.5 



2. Check if the predecessor in the 
write chain is in the buffer 
pool. Write buffer if necessary. 



OUTPUT- 



LOCATE Buffer Write 
2-15.6 



3. If the block is new, put the 
buffer on the write chain and 
mark it as altered. 




.t 



LOCATE New Block 
Processing 

2-15.7 



> 4. If the block is not new, read 
the block into the buffer. 



BFFRs 



LOCATE Read 
2-15.8 



5. Exit. 



Buffer Pool 
"^ Control Block 

I I 




Routine 



Label 



Extended Description 



Routine 



Label 
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Figure 2-15.5. 

!■ INPUT n il 



LOCATE Buffer Search 



BFFRs 



PSTACBNM 



BFFRs 



SBIF 



tz^ 




PROCESS ' 



H 



LOCATE: 



^ 1. Search the buffer prefixes for 
the requested data base CI 
(Control Interval). 

A. If the CI is not found, go 
to Step 4. 

B. If the CI is found as pending 
in the buffer pool, ENQ on 
this CI. After control is 
returned, go back to Step 1. 

C. If the CI is found in the 
buffer pool and is not busy, 
go to Step 2. 

D. If the CI is found in the 
buffer pool and is busy, ENQ 
on this CI. After control is 
returned, go back to Step 1. 

2. Pass the buffer to the requestor. 



3. Exit. 

^ 4. Search the use chain from top 
bottom for a buffer that can 
be used. 



L_: 



DLZDBHOO - Buffer Handler CSECT 
Extended Description 



> 5. If no buffer is available, ENQ 
on the pending CI of the buffer 
on the bottom of the use chain. 
After control is returned, go 
back to Step 4. 

6. Exit. 



Return to 
Caller 



To 

Figure 2-15.4 

Step 2 



■ OUTPUT^ 
> PST 






PSTBUFFA 




PSTDATA 









Routine 



Label 



2. Put the buffer prefix address into 
PSTBUFFA and the buffer address 
into PSTDATA. 

4. A buffer can be used if: 

• It is not marked 
non-reusable. 

• It is not a permanent 
write error buffer. 

• It is not currently 
enqueued for a pending CI. 
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Figure 2-15.6. LOCATE Buffer Write 
#1 INPUT I 




PROCESS - 



■-OUTPUT- 



BUFFOUND: 

Move the CI identifier into the 
buffer prefix of the buffer 
that is to be used. 



. l::^ 2. If the CI being processed is not 

new, go to Step 5. 



V 3. if the predecessor in the write 
"~^ chain can be found in the buffer 



pool, go to Step 5. 



4. If there is a sequence error, 
exit. 



11 > 5. If the buffer is busy, ENQ on 
.' ' this buffer. 

I ^ 6. If the buffer does not need to 

be written, go to Step 8. 



'N 7. Write the buffer. 

8. Take the buffer over. 

9. Exit. 




DLZDBHOO - Buffer Handler CSECT 



Extended Description 


Routine 


Label 


1. Moving the CI identifier means 
enqueuing on the pending GI. 






2. This check is made to ensure that 
the CIs of the data base get initialized 
in sequence. 






4. X'04' is stored in PSTRTCDE. 






5. A buffer is busy if: 






• It is being read into. 

• It is being written. 

• It is waiting for its 
predecessor in the write 
chain to be written. 






8. 'Taking over' a buffer consists of: 






• Moving the CI identifier from 
BFFRNPST to BFFRPST. 

• TurnmgoffBFFRPNNQand 
turning on BFFREXNQ in 
BFFRSW. 

• Putting the buffer at the 
top of the use chain. 

• Clearing the buffer (with 
zeros). 







Extended Description 



Routine Label 
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Figure 2-15.7. LOCATE New Block Processing 
P> INPUT I I *■ PROCESS I 



BFFRs 



From 

Figure 2-15.4 
Step 3 



- > 1. Search buffer pool for the 

predecessor in the write chain. 
If it is found, go to Step 3. 

2. If the predecessor cannot be 
found, go to system ABEND. 



L_: 



Abend 845 
2-4.2 



! ; ^3. If the predecessor is not being 

written, go to Step 5. 



4. Enqueue the predecessor that is 
being written. 



PPST 



^ 5. If the predecessor is not a 
permanent write error buffer, 
go to Step 7. 

6. Mark the current buffer as a 
permanent write error buffer. 
Then go to Step 9. 

7. Put the buffer on the bottom 
of the write chain. 

^ 8. Mark the buffer as altered. 

9. Put the buffer prefix address 
and the buffer address into the 
PST. 

10. Exit. 



DLZDBHOO - Buffer Handler CSECT 
Extended Description 




-OUTPUT — 
> BFFR 










> 


PST 






PSTBUFFA 




PSTDATA 









Routine 



Label 



4. The purpose for enqueuing the 
predecessor is to wait for completion 
of the writing. This is necessary to 
find out if the buffer is a permanent 
error buffer. 







Extended Description 



Routine 



Label 
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Figure 2-15.8. LOCATE Read 

■■ INPUT 



Q 



*■ PROCESS I 



From 

Figure 2-15.4 
Step 4 



(VSAM) 



DLZDBHOO - Buffer Handler CSECT 
Extended Description 



1. Read the requested CI frorrr the 
data base. 



2. If no read error occurred, go 
to Step 4. 

3. If an I/O error occurred, put 
return code X'08' (PSTIOERR) 
in PSTRTCDE. Then exit. 



4. Put the buffer prefix address 
and the buffer address into the 
PST. 



5. Exit. 



P OUTPUT- 



^ Buffer Pool 
P Control Block 



Return to 
Caller 



■K 

Figure 2-15.4 
Step 5 



> PST 

[pstrtcdF] 



> PST 



PSTBUFFA 



DLZDBHOO 



Routine 



Label 



Extended Description 



Routine Label 
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Figure 2-15.9. Free Buffer Space 

■■ INPUT ■ 



PST 



K 



BFPLSUBD 



F=i 



DMB 

Subpool 

Directory 



tzd 



1 




PROCESS ' 



r OUTPUT 



L_: 



MR KEMPT: 



1. Get the first buffer prefix in 
the subpool that applies to the 
call. 



2. If PST fields PSTDMBNM, PSTACBNM, 
and PSTBLKNM do not match BFFR 
fields BFFRDMB, BFFRDCB, and 
BFFRCIID,gotoStep4. 

3. If the PST fields match the 
BFFR fields: 

A. Mark the buffer as empty. 

B. Issue RE LP AG macro. 

C. Put the buffer on the bottom 
of the use chain. 



4. If this is not the last buffer 
prefix, get the next one and 
go back to Step 2. 




DLZDBH03 - Buffer Handler CSECT 
Extended Description 



Routine 



Label 



1 . The DMB subpool directory and the 
DMB number in PSTDMBNM are 
used to find the buffer subpool that 
applies to the call, 

2. The caller can have the buffer 
handler free: 

• Only one buffer. (PSTDMBNM, 
PSTACBNM, and PSTBLKNM 

• All buffers of a data set. 
(PSTDMBNM and PSTACBNM 
#0; PSTBLKNM = 0). 

• All buffers of a data base. 
(PSTDMBNM = DMB number of 
the data base; PSTACBNM and 
PSTBLKNM = 0). 







Extended Description 



DLZDBHOO 

Routine 



Label 
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Figure 2-15.10. Purge Buffers (CHKP Function) (Part 1 of 2) 



INPUT 



[PSTD^PCB IIdBPCBJCB | 



JCB ^- 

[JCBPRESF I 



RPL 

I RPLACB I 

(VSAM) 



DMB 

I dmborg" 



From 

Figure 2-15 
Step 1 H 






IP PGUSR: 


; 


► 1. 


Get address of the JCB. 


N 

y 

N 


^ 2. 
> 3, 


If function is not CHKP/go to Step 19. 
Get address of DDIR entry. 


X 


y 


► 4. 


Get address of DMB prefix. 


y 


► 5. 


If data base organization is not SHISAM, 
HISAM, or index data base, go to Step 17. 


; 


► 6. 


Get the RPL address. 


y 


> 7. 


If no request were made on this RPL, 
go to Step 11. 




8. 
► 9. 


Go test if ACB busy. 






^ 


TESTACB 






Test ACB Routine 

2-15.12 


; 


Issue VSAM ENDF 


(EG for this RPL. 





.OUTPUT- 



DLZDBH03 - Buffer Handler CSECT 



Extended Description 



Routine 



Label 



Extended Description 



Routine Label 



2. Field JCBPRESF in the JCB is checked 
for encoded checkpoint function 
(FUNCCHKP X'85'). If function is not 
CHKP, go purge the DL/I buffers. 

5. If data base organization is not SHIS AM 
(field DMBORG; bitDMBSHIS X'Ol' not 
set on), or HISAM (bit DMBISAMl 
X'02' not set on), or an index data base 
(bit DMBNDEX X'08' not set on) go 
update to next PSIL entry. 

9. VSAM ENDREQs are issued for every 
SHISAM, HISAM, and index data base 
to ensure that the VSAM buffers are 
written to the data base. 
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Figure 2-15.10. Purge Buffers (CHKP Function) {Part 2 of 2) 



■ INPUT ■— 


ACBXT 

Idmbacbrp 1 












RPL 




|rplacb 1 


(VSAM) 




PSIL 

Ipsillngh 1 

PSIL 
|PSILDIRA 1 







10. Post DMB ECB complete. 

11. If HISAM data base, update to next 
ACB extension. 

► 12. Get the RPL address. 

► 13. If no request were made on this RPL, 

go to Step 17. 

14. Go test if ACB busy. 






M 


TEST ACB 






Test ACB Routine 

2-15.12 


> 


15. Issue VSAM ENDREG for this RPL. 

16. Post DMB ECB complete. 

► 17. Update to next PSB intent list entry. 

► 18. If not end of PSB intent list, return 

to Step 3. 

19. Go to normal purge. 


1 



To Figure 
2-15.11 



1 OUTPUT- 



DLZDBH03 - Buffer Handler CSECT 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



1 1. If the entry is for HISAM, update to the 
next ACB extension. For HISAM, 
ENDREQs must be issued for both the 
KSDS and ESDS. 

18, Continue scan of the PSB intent list until 
all have been processed. When processing 
is completed, go purge the DL/I buffers. 
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Figure 2-15.11. Purge Buffers (Part 1 of 2) 



p INPUT 



BFFRi. 



BFFRs 







pstblknm 




PROCESS I 



h- 



• — I 



I — -> 



L_: 



1. Get the first of all buffer 
prefixes. 



2. If the buffer was not altered 
by this specific user, go to 
Step 11. 



3. If the identifiers are not 
equal, go to Step 11. 

I ^ 4. If the buffer is not 

non-reusable, go to Step 6. 



^ 5. Mark the buffer empty, issue 

RELPAG macro, and put the buffer 
on the bottom of the use chain. 
Then go to Step 11. 



- OUTPUT! 



6. If the buffer is not a 

permanent write error buffer, 
go to Step 10. 



> 7. Delete this user from the user 
mask field in the buffer prefix. 



^ BFFR 



DLZDBH03 - Buffer Handler CSECT 
Extended Description 



Routine 



Label 



1 . This routine scans all buffer prefixes. 

3. The caller may select a certain data 
base, a certain data set, or certain 
buffers to be purged. The choice is 
indicated by putting the number of 
the desired item into PSTDMBNM, 
PSTACBNM, or PSTBLKNM. Zeroes 
in these fields indicate that purging of 
all components of the item on the next 
higher level is desired. This module 
checks the contents of the above 
mentioned PST fields against the con- 
tents of fields BFFRDMB, BFFRACB, 
and BFFRCIID in the buffer prefix. 

4. Buffers that are non-reusable are freed 
during a purge call. 

6. Permanent write error buffers are not 
freed until all tasks, which either 
altered the buffer, or might be 
interested in it because they use the 
data base, have terminated. 







Extended Description 



DLZDBHOO 

Routine 



Label 



7. Before the bit in BFFRUSID, which 
corresponds to the user identifier (in 
the PPST) of the current task, is turned 
off, a check is made whether any tasks 
are active that would share the bit with 
the current task. (Refer to the notes in 
the Figure for routine BFALT.) 







i 



2-154 Licensed Material • Property of IBM 



Figure 2-15.11. Purge Buffers (Part 2 of 2) 

INPUT I I ■■ PROCESS ' 



PCB 



DSG 



Buffer Pool 
Control Block 



Data Base 
Control 
Interval (CI) 



8. If BFFRUSID is now zero, or if 
there are no more potential 
users for this buffer: 

A. Mark the buffer empty. 

B. Issue RELPAG macro. 

C. Put the buffer on the bottom 
of the use chain. 

9. Go to Step 11. 

> 10. Write buffer to Disk. 



■-OUTPUT- 



1 1. If this is not the last buffer 
prefix, get the next one and 
return to Step 2. 

12. Exit. 




BFFR 



:c 



SBIF 




Data Base 



DLZDBH03 - Buffer Handler CSECT 
Extended Description 



Routine 



Label 



8. A task is a potential user of a buffer 
if at least one of the DSGs in the 
FSB has the same DMB and ACB as 
in fields BFFRDMB and BFFRACB 
of the buffer prefix. 
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Figure 2-15.12. Test ACB Routine 
■■ INPUT I 



ACBXT 
JDMBECB 




PROCESS « 



1. Save R PL address. 



2. Get PST address. 

3. If DMB ECB not busy, go to Step 9. 

4. Indicate wait was necessary. 

5. Get PPST address. 

6. Indicate enqueued by buffer handler. 

7. Issue wait. 



8. Reset enqueued by buffer handler 
indicator. 

9. Restore RPL address. 



10. Indicate DMB ECB is busy. 



11. Return to caller. 



I- OUTPUT « 



RO 



> PST 



> PPST 



w 



To Figure 
2-15.10 
Step 9 or 1 5 



DLZDBH03 - Buffer Handler CSECT 



Extended Description 


Routine 


Label 


3. Byte 2 of DMB ECB set to X'80' 


TESTACB 




4. Bit PSTIWAIT in field PSTCLRWT in 






PST set on. 






6. Bit PPSTBF in field PPSTIND in PPST 






set on. 






7. DLZIWAIT macro issued. 






8. Bit PPSTBF in field PPSTIND in PPST 






set off. 






9. 




NOWAIT 


10. X'80' in byte 2 of DMBECB turned off. 







Extended Description 



Routine 



Label 
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Figure 2-16. DB Logger (Overview) 



INPUT 



From 
Caller 



DLZRDBLO - DB Logger CSECT 
Extended Description 



I PROCESS 



Note: The three different functions 
of the logger are associated with the 
three different entry points into it: 

• DLZIDBLO (Step 2) 

• LOGWR (Step 4) 

• WRIAHEAD(Step5) 

1. Initialize logger. (See Figure 2-16.1) 

2. Build a log record and move it to 
the log I/O area. (See Figure 2-16.2) 

3. Give control to asynchronous log 
subtask (online only). (See Figure 
2-16.3) 

4. Move a log record (which has been 
built by another module) to the log 
I/O area. (See Figure 2-16.4) 

5. Write log information physically to 
tape. (See Figure 2-16.5) 

6. Close the log file. (See Figure 2-16.6) 



7. Check for disk errors. (See Figure 
2-16.7) 



Return to 
Caller 




.OUTPUT- 



Routine 



Label 



1. 


DLZRDBLO 


DLZRDBLO 


2. 




DLZIDBLO 


3. 




ONLINT 
ONLLOGWI 


4. 




LOGWR 


5. 




WRIAHEAD 


6. 




LOGCLOSE 


7. 




PUTERROR 



Extended Description 



Routine 



Label 
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Figure 2-16.1. Initialize Logger 

^ INPUT ■ Fl,re 2-16 

Step 1 




PROCESS 



1. Initialize entry points in 
SCD. 

2. Open the log file and if 
successful turn open bit 
on in SCD. 

3. Issue error message if open 
failed and disk logging was 
specified. 

4. Restore registers. 



.OUTPUT- 




:>. 



DLZRDBLO - DB Logger CSECT 



Extended Description 


Routine 


Label 


1. The entry point to the logger module 
initially points to the initialization 
routine. After initialization it con- 
tains the entry point of DLZIDBLO 
All of the entry points to the various 
logger routines are in the SCD after 
initialization. 


DLZRDBLO 




2. If tape logging is specified, the DTF 
is opened. 






If disk loggmg is specified, the ACB 
is opened and tested if successful. 






3. Message BlZmOl is issued if an 
open error occurred with disk 
logging. 






Message DLZ077I is issued if the 
log was opened successfully with 
disk logging. 







Extended Description 



Routine Label 




^ 
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Figure 2-16.2. Build Log Record (Part 1 of 2) 



INPUT 



PST 



PSTOFFSJ 



PSTWRKI^ 
PSTWRK^ 



DSGDCBA 



DSGACBNO 



DL/I or VSAM 
BUFFER 



Qm 



DMBDL 



DMBPRS2 



SCDCWRKL 



LOG WORK 
AREA 




PROCESS ' 



r' 



r" 



1. Build the log record: 

A. Detect the kind of log call. 



B. Move header information 
into work area. 

> C. Move data into workarea. 

> D. If all data does not fit 
into log record, move as 
much data as possible. 

2. Move date and time into 
log record. 



I- OUTPUT- 



^ 3. Move log record to I/O area: 



Log Work Area 



If log record does not 
fit into I/O area, do Step 
4. Otherwise, go to Step 5. 



:2>, 



DLZRDBLO - DB Logger CSECT 
Extended Description 



1. Depending on the kind of log record 
being processed, the logger will build 
one of the following type of log record: 

• Physical insert record 

• Physical replace record 

• Physical delete record 

• Logical delete record 

• Pointer maintenance record. 

The maximum logical record size 
for a log record is 5 1 2 bytes. The 
blocks are undefined with a maximum 
of 1024 bytes. 
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Figure 2-16.2. Build Log Record (Part 2 of 2) 
pi INPUT II I mm PROCESS i 




4. Write the contents of the 
I/O area to tape or disk. 



A. 



B. 



If logging is being done in 
a batch environment, 
issue the PUT macro 
immediately. 

If logging is being done in 
an online environment, 
pass control to: 



Asynchronous 
Log Subtask 
2-16.3 



5. Check for disk errors 
if disk logging. See 
Figure 2-16.7. 

6. If the log request is associated 
with a buffer, move the 
number of the last written 
log block from SCDLOCOU 
into the buffer prefix. 

7. If more data is to be logged, 
return to Step 1C. 
Otherwise; 




I OUTPUT! 




> BFFR 



DLZRDBLO - DB Logger CSECT 



Extended Description 



Routine 



Label 



4 B. In an online environment, the 
PUT macro is issued from the 
Asynchronous Log Subtask in 
order to avoid losing tasks when 
EOV is encountered on the log 
tape. 

6. The purpose for keeping the number 
of the last written log block in the 
SCD and in the BFFR is to enable 
DLZDBHOO to determine if a log 
record has to be written out before 
an update is appHed to a data base. 

7. There will be more data to be logged 
if all data did not fit into the log 
record. See Step ID. 







Extended Description 



DLZRDBLO 

Routine Label 




^4 
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Figure 2-16.3. Asynchronous Log Subtask 



INPUT 



ISCDESECB 1 


PRIVATE ECB 


Iprivecb 1 


SCD 




Iscdelecb 


PRIVATE ECB 


PRIVECB 1 


Log I/O Area 


b 


1 


PRIVATE EC 


Iprivecb 


SCD 


Iscdelecb 


SCD 


Iscdesecb 





■■ PROCESS " 



From 

Figure 2-16.2 
Step 4 



r^ OUTPUT 



1. Lock the SYSTEM ECB. 

2. Turn off posted PRIVATE ECB. 

3. Post the LOG I/O ECB. 



> 4. Issue IWAIT on PRIVATE ECB. 



5. Issue PUT. 



6. Post the PRIVATE ECB. 



, Turn off posted LOG I/O ECB. 

8. Go into wait again on 
LOG I/O ECB. 



9. Post the SYSTEM ECB. 




DLZRDBLO - DB Logger CSECT 



DLZRDBLO 



Extended Description 


Routine 


Label 


Steps 1 , 2, 3, 4, and 9 are performed 
within CSECT DLZRDBLO. 


DLZRDBLO 


ONLINT 


Steps 5, 6, 7, and 8 are performed 
within the Asynchronous Log Writer 
Subtask. 


DLZRDBLO 


ONLLOGWf 


1 . The SYSTEM ECB is used for commu- 
nication between DLZRDBLO and 
DLZODP. It is locked in order to 
prevent any other task from entering 
the logger while the I/O is going on. 






2. The PRIVATE ECB is used for commu- 
nication about the completion of I/O 
between the Asynchronous Log Subtask 

a and DLZRDBLO. 






3. The LOG I/O ECB is used for commu- 
nication about the need to issue a 
PUT macro between DLZRDBLO and 
the Asynchronous Log Subtask. 







Extended Description 



Routine 



Label 



The Asynchronous Log Subtask is 
waiting on this ECB and when it gets 
posted, DOS/VS will mark this sub- 
task as dispatchable, 

4. IWAIT will have the effect that the 
DL/I 'maintask' will be put into wait. 
The Asynchronous Log Subtask can 
then be started by DOS/VS. 
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Figure 2-16.4. 

■ INPUT 



Move Log Record 



LOG 
RECORD 


LOG I/O 
AREA 

1 




1 DLENGTH 




— 


LOG I/O 
AREA 




1 CURSIZE 














3 



From 

Figure 2-16, 
Step 4 



I PROCESS ' 




(See Note) 



1. If the log record fits into 
the space currently 
available in the LOG I/O 
AREA, go to Step 4. 



2. Write the current contents 
of the LOG I/O AREA to the 
log tape or disk. 



3. Check for disk errors if 
disk logging. 
(See Figure 2-16.3.) 

I> 4. Move the log record to 
^ the LOG I/O AREA. 



.OUTPUT- 




^ LOG I/O AREA 




To 

Figure 2-16 



DLZRDBLO - DB Logger CSECT 
Extended Description 



Routine 



Label 



Note: This function is used 

• Open log records (ID X'2F') 

• Scheduling records (ID X'08') 

• Termination records (ID X*07') 

• Checkpoint records (ID X'4r) 


DLZRDBLO 


LOGWR 



Extended Description 



DLZRDBLO 

Routine Label 



^ 
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Figure 2-16.5. Write Log Information 

m INPUT 




PROCESS I 



■-OUTPUT 



1. Issue PUT macro to write current 
contents of the log I/O area to the 
log tape or disk. 



2. Check for disk errors if disk logging. 
(See Figure 2-16.7) 




Figure 2-16 



DLZRDBLO - DB Logger CSECT 



Extended Description 



Routine Label 



1 . This function is used by 
DLZDBHOO, when log 
information associated 
with a data base update 
has not been written to 
tape at the time the data 
base update was being 
done. 


DLZRDBLO 


WRIAHEAD 



Extended Description 


Routine 


Label 
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Figure 2-16.6. Close Log File 

■ INPUT I 



From 

Figure 2-16 
Step 6 



I PROCESS ' 



1. Reset open bit in SCD. 

^L 2. If tape logging, close tape 
"^ DTF. 



3. If disk logging, close ACB 
and test for close errors. 



4. If close errors, issue 
error message. 

5. Restore registers. 



To 

Figure 2-16 



> 


OUTPUT— - 
SCD 










> 


DTFMT 










> 


(LOGOUT) 
ACB 












(LOGACB) 





DLZRDBLO - DB Logger CSECT 
Extended Description 



Routine 



Label 



1. Either the tape or disk log file is 
closed in this subroutine. 

This subroutine is used by DLZODP, 
DLZRDBLO, DLZRRCOO, and 
DLZBNUCO. 

4. Message DLZ021I is issued. 


DLZIDBLO 


LOGCLOSE 



Extended Description 



DLZRDBLO 

Routine 



Label 
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Figure 2-16.7. Disk Errors 

■ INPUT III 



SCD 



■M PROCESS 1 

From I 

Figure 2-16 I 
Step 7 I 



1. Perform close log file routine. 



Close Log File 
2-1 6.6 



2. If full extent, check if 
PAUSE is indicated. 

3. If PAUSE is indicated, issue 
message and wait for reply. 



4. If reply is 'cancel' issue 
message. 

5. If reply is 'go', open next file, 
issue file used message, and 
continue. 



6. If an I/O error occurs, issue 
message. 



■-OUTPUT- 



To 

DLZBNUCO 
ABEND 
Routine 
(Figure 2-4.2) 



(LOGACB) 



DLZRDBLO - DB Logger CSECT 



Extended Description 


Routine 


Label 


1 . The log file is closed so that the 
operator could dump the file 
(optional) before continuing. 


DLZIDBLO 


LOGCLOSE 


2. Checks to see if the user specified 
PAUSE on the DL/I control 
parameter. 


DLZRDBLO 


PUTERROR 


3. Message DLZ076I is issued. 






4. Message DLZ077I is issued. 






5. Message DLZ079I is issued. 






6. If the reply is 'GO', a check is made 
to determine if 1 or 2 disk files are 
being used for logging. If there are 2 
fdes, the second file is opened and 
control is returned to the PUT routine . 






Message DLZ004I is issued. 








Licensed Material - Property of IBM 2-165 



Figure 2-17. CI CS Journal Logger (Overview) 

f> INPUT III I „ ff> PROCESS I 



From 
Caller 



Note: The four different functions 
of the logger are associated with 
four different entry points into it: 

• DLZIDBL0(Step2) 

• OPLOG (Step 3) 

• WRITEEXT (Step 4) 

• WRIAHEAD (Step 5) 

1. Initialize the logger. 

2. Build a log record and move it 
to the CICS journaling buffer. 
(See Figure 2-1 7.1) 

3. Build open log record (s) and 
move to CICS journaling buffer. 
(See Figure 2-17.2) 

4. Move a log record which has been 
built by another module to the 
CICS journaling buffer. 

(See Figure 2-17.3) 

5. Write journal information physically 
to tape. 

(See Figure 2-17.4) 



I- OUTPUT- 



Return to 
Caller 



DLZRDBL1 ~ DB Logger with CICS Journaling CSECT. 



DLZRDBL1 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



1 . Move all of the entry points 
to the logger into the SCD. 

2. 

3. 

4. 

5. 


DLZRDBLl 


DLZRDBLO 

DLZRDBLO 
OPLOG 
WRITEEXT 
WRIAHEAD 




H 
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Figure 2-17.1. CICS Build Log Record (Part 1 of 2) 
■■ INPUT I !■ PROCESS < 



PSTBYTNM 



PSTDATA 



DSG 



DL/I OR VSAMr 
BUFFER I 



LOG WORK 
AREA 



From 

Figure 2-17 
Step 2 



1. Build the log record. 



•OUTPUT- 



> 2. Issue DFHJC TYPE={WRITE,DL/I) 
to get the log record moved 
to the CICS journal buffer. 

3. If physical I/O is not necessary, 
go to Step 10. 



LOG WORK AREA 



'^ 4. Lock SYSTEM ECB. 



-I>f CICS JOURNAL 
-UC BUFFER 



5. Issue DFHJC TYPE=WRITE 
again. 

6. If no I/O error occurred, 
go to Step 8. 

7. Log I/O error — system 
ABEND. 



DLZBNUCO 
ABEND Routine 
2-4.2 



DLZRDBLI - DB Logger with CICS Journaling CSECT 
Extended Description Routine 



Label 



1. 

4. The SYSTEM ECB is locked in order 
to prevent any other task from entering 
the logger while the I/O is going on. 


DLZRDBLI 


DLZRDBLO 
lONECl 



Extended Description 



DLZRDBLI 

Routine 



Label 
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Figure 2-17.1. CICS Build Log Record (Part 2 of 2) 
INPUT I I- PROCESS I 



|SCDLOCOU[ 



C> 



t> 



8. Get the new number of the last 
written journal block from the 
JCT. 

9. Post the SYSTEM ECB. 

10. If the log request was not 
associated with a buffer, go 
to Step 12. 

1 1 . Store the block number of 
the last journal buffer written 
to tape into the buffer prefix. 

12. If the data to be logged did 
not fit into one log record, 
return to Step 1. 




OUTPUT- 



SCD 

|SCDLOCOU| 



BFFR 

^ [bffrlocoI 



DLZRDBL1 - DB Logger with CICS Journaling CSECT 



Extended Description 



Routine Label 



Extended Description 



Routine 



Label 



8. The purpose for keeping the 
CICS event control number 
is to enable DLZRBHOO to 
determine if a log buffer has 
to be written before an update 
is applied to a data base. 


DLZRDBLl 


GETECN 




4 

k 
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Figure 2-17.2. CICS Move Log Record 



■ INPUT 1 








DDIR II 






i- 


DMB 






DMB 




DMBACBXT 











■■ PROCESS I 



From 

Figure 2-17.3 
Step 3 



I , 



(See Note) 



1. Locate the first DDIR entry. 

2. If the data base was not 
opened, go to Step 5. 

> 3. Build the open log record 
for the data base referenced 
by this DDIR entry. 

4. Move open log record to 
CICS journaling buffer. 



I "I > 5. If this is not the last 

DDIR entry, get the next 
DDIR entry and return to 
Step 2. 



P- OUTPUT! 



> LOG WORK AREA 




To 

Figure 2-1 7 



DLZRDBLl - DB Logger with CICS Journaling CSECT 
Extended Description Routine 



Label 



Note: Since the CICS journal tape is not 
yet open at DL/I initialization, the open 
log record(s) are built ^d moved before 
the first scheduling call is logged. 

2. A data base might rvpt have been 
opened because of the OPEN= 
DEFERRED option or because 
of an open error. 

4. See Figure 2-17.1 , Steps 4-9, 



DLZRDBLl 



OPLOG 



Extended Description 



DLZRDBLl 

Routine 



Label 
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Figure 2-17.3. CICS Move Prebuilt Log Record 



INPUT 




PROCESS 



(See Note) 



1. Get the prebuilt log record 
and move it to the CICS 
journal buffer. 



•OUTPUT- 



> JOURNAL BUFFER 




DLZRDBL1 - DB Logger with CICS Joumaling CSECT 



Extended Description 



Routine Label 



Extended Description 



Routine 



Label 



Note: This function applies to 
scheduling and termination . 
records built by the scheduling 
termination routine. 

1. See Figure 2-17.1, Steps 4-9. 


DLZRDBLl 


WRITEEXT 
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Figure 2-17.4. CI CS Log Writing 

INPUT 



From 

Figure 2-17 
Step 5 



I PROCESS ' 



(See Note) 



ctcs 

JOURNAL BUFFER 



I^ 



1. Store the block number of 
the block that is going to be 
written in the JCA (Journal 
Control Block). 



2. Lock the SYSTEM ECB. 



3. Issue DFHJC TYPE=(WAIT,DL/I) 
to get current contents of 
CICS journal buffer written 
to tape. 



p. OUTPUT- 



vC JCA 



S SCD 



> 4. Get the block number of the 
last written journal 
block from the JCT 
(Journal Control Table), 



> 5. Post the SYSTEM ECB. 



Q 

LOG TAPE 



S 



To 

Figure 2-17 



I scdesecb" 



DLZRDBL1 - DB Logger with CICS Journaling CSECT 
Extended Description Routine 



Label 



Extended Description 



DLZRDBL1 

Routine Label 



Note: This function is used by DLZDBHOO 
when log information associated with a 
data base update was not written to tape 
when the data base update was being 
done. 

1. Refer to note for Step 8 of 
Figure 2-17.1. 

2. Refer to note for Step 4 of 
Figure 2-17.1. 



DLZRDBLl 



WRIAHEAD 
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Figure 2-18. Start Transaction 

> INPUT III 



CSA 




CSAOPi^LA 


1 csAopflaI 


HcSADLl 1 
DLIDLIAL 








DLITTRM 




DLISTRM 




DLINUC 









DL/I Nucleus 
SCD 




1 SCDDBMPSI 


SCD 
Address 











TCA 

[tcakcrc I 



*> PROCESS ' 



From 

CICS/VS 

DFHPCP 



1. Check if DL/I nucleus loaded. 



2. Check if MPS already active. 



3. Attach master partition 
controller. 



4. Return. 



DFHKC TYPE=ATTACH 
COND=YES 
TRANSID=SCDB 



DFHPCTYPE=RETURN 



To 

CICS/VS 

DFHPCP 



CICS/VS 
^ Dispatch Chain 










— 








MPC 






" Idlzmpcoo 





DLZMSTRO - MPS Start Transaction CSECT 
Extended Description 



Routine 



1. Module identifier (DLZMSTRO) is 
defined here. 

Write message DLZ097I if nucleus not 
loaded or not active and go to Step 4. 

2. Write message DLZIOII if flag 
SCDXECB indicates MPS XECBs 
already defined and go to Step 4. 

3. Write message DLZ083I if attach 
fails with a return code in TCAKCRC 
and go to Step 4. 



DLZMSTRO 



DLZMSTRO 



Label 



RETURN 



Extended Description 



DLZMSTRO 

Routine 



Label 



I 
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Figure 2-19. Master Partition Controller (Overview) 



INPUT 



From 

CICS/VS 

DFHPCP 



From 
CICS/VS 



p PROCESS I 



1. Initialize MPC task. 
(See Figure 2-19.1). 

2. Defined required XECBs for 
cross partition control. 
(See Figure 2-19.2) 

3. WAITM on Start BPC, Stop 
Partition, ABEND, and Stop 
Transaction XECBs. 

(See Figure 2-19.3) 

4. If Start Partition XECB posted, 
attach BPC task. 

(See Figure 2-19.4) 

5. If Stop Partition XECB posted, 
process stop partition requests. 
(See Figure 2-19.5) 

6. If ABEND XECB posted, the BPC 
attach failed, process the ABEND 
condition. 

(See Figure 2-19.6) 

7. If Stop Transaction posted, 
terminate MPS. 

(See Figure 2-19.7) 

8. Terminate MPC task. 
(See Figure 2-19.8) 



9. MPC ABEND exit routine. 
(See Figure 2-19.9) 



i- OUTPUT- 




ExtendedHDescription 


Routine 


Label 


1. 




DLZMPCOO 
MPCSTART 


2. 




MPCDEFIN 


3. 




MPCWAIT 


4. 




MPCSTRP 


5. 




MPCSTOP 


6. 




MPCABNP 


7. 




MPCSTRN 


8. 




MPCEXIT 


9. 




MPCABEXT 



Extended Description 



Routine 



Label 
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Figure 2-19.1. MPC Task Initialization 

fB INPUT 

From 

Figure 2-19 
Step 1 



I CSAOPFLA I DL/I 



Interface 
List 



DLZNUCxx 
Address 



\ DL/I 
Nucleus 



SCD 
Address 



Transaction 
Work Area 




I PROCESS I 



1. Establish SCD addressability. 



P OUTPUT ■ 



- > 2. Get number of partitions defined 

during system generation (SYSGEN) 
and adjust the partition 
identification table. 



> SCDADDR 



Transaction 
Work Area 



J> 3. Get address of the MPC 
Partition Table. 



> 4. Get address of CICS/VS WAITM 
ECB list. 



PARTIDTB 

] | 1 



r> SCDMPCPT I 




DLZMPCOO - Master Partition Controller CSECT 
Extended Description 



Routine 



Label 



1 . Module identifier (DLZMPCOO vrnp) is 
defined here. 

MPC is attached by the MPS start 
transaction (DLZMSTRO) via CICS/VS. 
Ignore request if DL/I is not defined 
to CICS/VS or the nucleus is not loaded 

2. The number of partitions is saved in R3 
to be used later when defining 
XECBTAB entries for partitions. The 
PARTIDTB table is used for MPC 
messages. 

Write message DLZ088I followed by 
DLZ094I if only one partition was 
defined during SYSGEN. 

In all steps where a message is issued: 

• Rl is set up with the applicable 
message parameter list. 

• Control is passed to the MPC 
message writer at MPCMSGRT. 

• BALR to the DL/I online message 
module, DLZERMSG, to write the 
message. 

3. The transaction work area is a logical 
extension of the TCA. 



DLZMPCOO 



DLZMPCOO 
MPCSTART 



Extended Description 



DLZMPCOO 

Routine 



Label 
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Figure 2-19.2. MPC Define XECBs (Part 1 of 2) 



INPUT 



SCD 

I SCDCOMRGI 



'C 



X'84' 



BGCOMREG 



) 



From Figure 
2-19 Step 2 



— ■) 



— -} 



1 PROCESS I 



1. Define a start partition XECB and 
ABEND XECB for each partition 
defined during system generation 
(SYSGEN). 



XECBTAB TYPE=DEFINE 
XECB=DLZXCBnO 
ACCESS=XWAIT 



XECBTAB TYPE=DEFINE 
XECB=DLZXCBn3 
ACCESS=XWAIT 



2. If error return on DEFINE: 
A. Issue message DLZ082I. 

Delete any XECBs defined. 



B. 
C. 



Go to Figure 2-19, Step 8, 
to terminate MCP. 



3. Define stop transaction XECB. 




XECBTAB TYPE=DEFINE 
XECB=DLZXCBOO 
ACCESS=XPOST 





XECBTAB Transaction 
Entries Wori< Area 


1 

DLZXCBnO 


MPCPT 


MPCFLAG 




MPCPID 


MPCPT 

Entry 

Address 


MPCAXECB 


MPCECBLT 














XECBTAB Transaction 
Entry Work Area 






MPCECBLT 













DLZMPCOO - Master Partition Controller CSECT 



Extended Description 



Routine 



Label 



Extended Description 



DLZMPCOO 

Routine 



Label 



The XECBTAB/DEFINE macro is 
issued to initialize the XECBTAB table 
with entries representing a partition 
with a unique name. DLZXCBnO is the 
XECB name to start a batch partition 
controller for a specific partition. 
DLZXCBn3 is the XECB name for 
handling an ABEND situation for a 
specific partition. The n varies and 
represents the 1st character of the 
partition identification key (PIK) in 
character form. 

R3 being the number of partitions 
defined during SYSGEN lends itself 
to this application of naming an XECB 
for a partition. 



DLZMPCOO 



MPCDEFIN 

XECBSTR 

XECBABN 



For example: 

If two partitions are defined: 

R3=2 DLZXCB20 is identical to F2F0=F1 PIK 

R3=l DLZXCBIO is identical to F1F0=BG PIK 











■ 




If 'four partitions are defined: 

R3=4 DLZXCB40 is identical to F4F0=F1 PIK 
R3=3 DLZXCB30 is identical to F3F0=F2 PIK 
R3=2 DLZXCB20 is identical to F2F0=F3 PIK 
R3=l DLZXCBIO is identical to F1F0=BG PIK 








XECBTAB is a table in the supervisor 
containing the name and address of all 
XECBs defined. XTABD is the DSECT 
representing an XECBTAB entry. 

The CICS/VS WAITM ECB list 
(MPCECBLT) is initialized with fullword 
pointers to the partition start XECBs. 

3. DLZXCBOO is the XECB name to stop 
the MPS transaction. The two stop 
XECBs are defined as XPOST so that 
they can be posted during abnormal 
system termination. The CICS WAITM 
ECB list is initialized with the STOP 
XECB pointers. 




XECBFN 


D 
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Figure 2-19.2. MPC Define XECBs (Part 2 of 2) 

■ INPUT ■liiMMH-i.Mii— >^^ fa PROCESS i 






4. If error return on DEFINE: 

A. Issue message DLZ082I. 

B. Delete any XECBs defined. 

C. Go to Figure 2-19, Step 8, 
to terminate MPC. 

5. Define Stop Partition XECB. 



F OUTPUT- 



XECBTABTYPE=DEFINE 
XECB=DLZXCB01 
ACCESS=XPOST 



6. If error return on DEFINE, 
go to step 4. 

7. Store Stop Partition XECB 
address in each created MPCPT 
entry. 



8. Indicate MPS active. 



9. Set ABEND exit routine for 
Master Partition Controller. 



Transaction 
Work Area 



XECBTAB 
Entry 



- Transaction 
^ Worl< Area 



ig" 



T=i' 



DFHPCTYPE=SETXIT 

ROUTINE=MPCABEXT 



To 
Figure 
2-19, 
Steps 



DLZMPCOO - IVIaster Partition Controller CSECT 
Extended Description 



Routine 



Label 



5. DLZXCBOl is the XECB name to stop 
a partition. 

7. 

8. Turn on SCDXECB at SGDDBMPS and 
issue message DLZ093I to indicate 
MPS started. 

9. MPCABEXT routine is within this 
module (see Figure 2-19.9). 




XECBDFNl 
MPCUPLST 



Extended Description 



DLZMPCOO 

Routine Label 
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Figure 2-19.3. 

■■ INPUT I 



MPC Wait 



Transaction 
Work Area 




PROCESS • 



I- OUTPUT 



— ^ 1. Establish special task dispatch 
status for MPC. 



CICS/VS 
WAITM 
ECB LIST 



DLZXCBnO 



XECB 



A (Start Rtn) 



A (MPCPT Entry) 



DLZXCBnO 



XECB 



A (Start Rtn) 



A (MPCPT Entry) 



DLZXCBOO 



XECB 



A (Stop Transact Rtn) 



XECB 



A (Stop Partition Rtn) 



DLZXCBn3 



XECB 



A (ABEND Rtn) 



> 2. Issue a wait on ECB list. 



DFHKCTYPE=WAIT 
DCI=LIST 



3. When control returns, scan the 
XECBs for one that is posted. 



4. Return to step 2 if no XECBs 
are posted. 



5. Determine what action is to be 
taken for the first XECB found 




DLZMPCOO - Master Partition Controller CSECT 



Extended Description 


Routine 


Label 


1. Turn on the DCAAPURG flag in the 
DCAFLGl byte of the DCA for this 
task. When on CICS/VS task control 
will not count this task as part of 
AMXT nor will it take the short wait 
interval if this is the only waiting task 
in the GICS/VS system. 


DLZMPCOO 


MPCWAIT 


2. Note that the ABEND XECB 

(DLZXCBnS) pointer is placed in the 
ECB list only when the BPC attach 
is unsuccessful. 






3. The XECBs are posted on the following 
conditions: 




MPCECBCK 


DLZXCBnO 

• DLZMPIOO - activate BPC for 
a specific partition. 






DLZXCBOO 

• DLZMSTPO - terminate MPS. 






DLZXCBOl 

• DLZBPCOO - normal batch EOJ; 
error conditions in BPC or batch 
partitions. 

• DLZODPOl - ABEND. 







Extended Description 



DLZMPCOO 

Routine Label 



DLZXCBn3 

• DLZMPIOO - BPC attach 
failure. 

5. Before going to the appropriate routine, 
the post bit in the XECB is turned off. 




MPCECBOK 



Licensed Material - Property of IBM 2-177 



Figure 2-19.4 MPC Start Processing (Part 1 of 3) 



m INPUT 



^^*-DL 



A(MPCPT Entry) 



■ ► 1. Initialize for Start Partition processing. 



MPCPT Entry 




PROCESS I 



MPCPT Entry 

Impcid 



R6 

(t ABEND XECB | 



> 2. Check if BPC is still active for this 
partition. 



XECBTAB TYPE = CHECK 
XECB=DLZXCBn2 



> 3. If no error on check: 

A. Set reactivate BPC indicator. 



> B. Turn on BPC ABEND XECB POST 
bit. 



C. Return to MPC WAIT routine. 



> 4. Set MPCPT entry for BPC. 



5. Attach Batch Partition Controller 
(DLZBPCOO). 



DFHKCTYPE = ATTACH 
TRANSID = CSDC 
COND=YES 



6. If BPC attach is successful, go to Step 13. 



i OUTPUT- 



MPCPT Entry 


DLZXCBnS 


MPCFLAG 


1 XECB 1 


MPCRC1 




MPCRC2 






I TCAKCFA ] 



DLZMPCOO - Master Partition Controller CSECT 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



1 . This routine is entered from the MPC 
Wait Routine when a Start Partition 
XECB (DLZXCBnO) is posted (XPOST) 
by DL/I MPS Batch Module (DLZMPIOG), 

Register 7 contains the address of the 
XECB posted. 

2. The XECBTAB/CHECK macro is used to 
determine if a BPC is still active for this 
partition. 

3. A zero return code from 
XECBTAB/CHECK macro in R15 
indicates an active BPC. 

A. Bit MPCREBPC in field MPCFLAG 
is turned on. 

B. R6 contains a pointer to BPC 
ABEND XECB (DLZXCBn3). Note 
that the XPOST macro is not needed 
to turn on the POST bit because the 
BPC ABEND XECB (DLZXCBnS) is 
defined by MPC. 

6. A 'X31' in TCAKCRC indicates an 
ATTACH failure. 




MPCSTRP 
XECBBPC 
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Figure 2-19.4. MPC Start Processing (Part 2 of 3) 
■ INPUT 1 r PROCESS ' 



MPCPT 
Entry 



LI 

, u> 7 



MPCPT 
Entry 



7. Locate MPS Batch XECB if one 
exists for this special 
partition. 



XECBTABTYPE=CHECK 
XECB=DLZXCBn1 



A (XECBTAB) 



|A(DLZXCBn1) | 



> 8. If error return on CHECK: 

A. Issue message DLZ082I. 

B. Indicate Partition Inactive. 

C. Go to step 13. 

9. Set BPC ATTACH failed. 



>10. Move ABEND XECB address to the 
end of the CICS/VS WAITM ECB 
list. 



K^^. Notify MPS Batch (DLZMPIOO) of 
^ BPC ATTACH failure. 



XPOST XECB=DLZXCBn1 



DLZMPCOO - Master Partition Controller CSECT 
Extended Description 



Routine 



Label 



7. The XECBTAB/CHECK macro is 
issued to obtain the address (in 
register 14) of Batch Initialization's 
XECBTAB entry for the specific 
partition. 

8. B. The partition active flag, MPCPACT, 

at MPCFLAG is turned off. 

9. The BPC ATTACH failed flag, 
MPCERR, is turned on. 

10. The CICS/VS WAITM ECB list is 
updated to include a pointer to the 
ABEND XECB pointer to provide 
recovery. 


■ 


XECBCHK 

MPCCHKOK 
MPCXPOST 



Extended Description 



■-OUTPUT- 



A (XECBTAB) 



R1 

[a (DLZXCBnl) 



MPCPT 
^ Entry 



MPCPT 
> Entry 



> DLZXCBnl 



DLZMPCOO 

Routine Label 
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Figure 2-19.4. MPC Start Processing (Part 3 of 3) 
■ INPUT ■ I ■■ PROCESS' 



OUTPUT- 



12. If error return on XPOST: 

A. Issue message DLZ084I. 

B. Set partition inactive and 
clear error indicator. 



C. Remove ABEND XECB pointer 
from CICS/VS WAITM ECB 
list. 



13. Return to MPC Wait routine. 




DLZMPCOO - Master Partition Controller CSECT 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



1 2. B. The flags MPCPACT and 
MPC ERR are turned off. 







^ 
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Figure 2-19.5. MPC Stop Partition Processing (Part 1 of 2) 



. INPUT ■ 


MPCPT 
Entry "" 


From 

Figure 2-19 
Steps 




MPCFLAG 




MPCPTLN 






MPCFLAG 


N 








MPCREBPC 1 ~ 
MPCPT 


IS 




Entry ■ 




[MPCPID 1 


— W 

IS 




Rib 




I 1 ' 


k 






^ 




R1 - 




1 1"' 


w 




MPCPT 
Entry 


^ 




MPCFLAG 1 




MPCPT 
Entry 


DLZXCBnO J 


^ 






Impcbid 1 




1 1 ■ 








MPCPT 
Entry 




M 






|mpcpid 1 


1 r 















I PROCESS I 



1. Scan MPCPT for an entry with stop 
partition request. At end of MPCPT, 
goto step 14. 



2. Set partition inactive and clear stop 
partition request. 

> 3. If BPC is not to be reactivated 
go to step 9. 



4. Reset reactivate BPC indicator. 



> 5. Check if start XECB is still 



defined 



•XECBTAB TYPE=CHECK 
XECB=DLZXCBnO 



■-OUTPUT- 



«Jsi MPCPT 

_^>- Entry 

|mpcflag I 



■J^ MPCFLAG 



-^ 



^ 6. If error on check, return to 
MPC WAIT routine. 



> 7. Turn on start XECB POST bit. 



8. Return to MCP WAIT routine. 



9. If stop transaction (MPS) requested 
also, continue; otherwise, return to 
step 1 to check next MPCPT entry. 



XECBTAB TYPE=DELETE 
XECB=DLZXCBnO 



>11. Delete ABEND XECB. 



To Figure 
2-19 Step 3 



XECBTAB TYPE=DELETE 
XECB=DLZXCBn3 



>. DLZXCBnO 
IXECB 



To Figure 
2-19 Step 3 



R14 

|a (xecbtaT^ 

R1 

iA(DLZXCBT)0)l 



DLZMPCOO - Master Partition Controller CSECT 



Extended Description 



Routine 



Label 



L This routine is entered from the MPC 
Wait routine when a Stop Partition XECB 
(DLZXCBOl) is posted (XPOST) by 
DL/I MPS Batch Partition Controller 
(DLZBPCOO) or Task Termination 
(DLZODPOl). 

A scan is done on every entry in the 
partition table to avoid losing a stop 
partition request on a double post. 

3. Bit MPCREBPC in field MPCFLAG not on. 

4. Bit MPCREBPC in field MPCFLAG 
turned off. 




MPCSTOP 



Extended Description 



Routine 



Label 



5. The XECBTAB/CHECK macro is issued 
to determine if the start XECB 
(DLZXCBnO) is still defined. 

7. Rl contains pointer to the start XECB 
(DLZXCBnO). The XPOST macro is not 
needed to turn on the POST bit because 
the start XECB (DLZXCBnO) is defined 
by MCP. 

10. If error return on DELETE, issue message 
DLZ082L 

1 1 , If error return on DELETE, issue message 
DLZ082I. 




XECBSTRC 

XECBDELS 
XECBDELA 



Licensed Material - Property of IBM 2-181 



Figure 2-19.5. MPC Stop Partition Processing (Part 2 of 2) 
fB INPUT I , I ■■ PROCESS " I 



MPCPT 
Entry — 

ImpcflagI 



MPCPT 
Entry 



12. Set XECBs deleted for this 
partition. 



13. Return to step 1 to check next 
MPCPT entry. 



14. If stop transaction (MPS) has 
not been requested, go to 
step 16. 



15. If all the partitions are 
inactive, go to Figure 2-19, 
Step 8 to terminate MPC. 

16. Return to MPC Wait routine. 



f OUTPUT! 



To 

Figure 2-19 

Steps 



MPCPT 
Entry 



DLZMPCOO - Master Partition Controller CSECT 



DLZMPCOO 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



1 5 . Flag MPCPACT in MPCFLAT 
indicates whether the partition 
is active or inactive. 
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Figure 2-19.6. MPC ABEND Processing 



INPUT 



MPCPT 
Entry 



|mpcaxecb^ 



MPCECBLT R7 



From 

Figure 2-19 
Step 6 



1 PROCESS « 



1. Locate MPC Partition Table entry to 
> which this ABEND XECB belongs. 



2. Set partition inactive and clear error 
indicator. 



—2 > 3. Remove ABEND XECB pointer from 
CICS/VSWAITMECBIist. 



4. Return to MPC Wait routine 



.OUTPUT* 



_J MPCPT 
_> Entry 



To 

Figure 2-19 

Step 3 



DLZMPCOO - IVIaster Partition Controller CSECT 
Extended Description 



Routine Label 



Extended Description 



Routine Label 



1 . This routine is entered from the MPC 
Wait routine when an ABEND XECB 
(DLZXCBnS) is posted (XPOST) by 
DL/I MPS Batch InitiaHzation Module 
(DLZMPIOO) on a BPC ATTACH 
Failure. 

Register 7 contains the address of the 
XECB posted. 

2. Flags MPCPACT and MPCERR are 
turned off. 




MPCABNP 
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Figure 2-19.7. MPS Termination (Part 1 of 2) 



m INPUT 



From 

Figure 2-19 
Step? 



DLZXCBOO 



MPCPT 
Entry 



MPCFLAG \ • 



MPCPT 
Entry 



3C 



I- PROCESS I 



Zs 1. Delete stop transaction (MPS) XECB. 



MPCPT 
Entry 



XECBTAB TYPE=DELETE 
XECB=DLZXCBO0 



2. Set stop transaction (MPS) request 
in MPCPT entry. At end of MPCPT, 
go to Step 8. 

■I > 3. if this partition is active, return to 
"^ Step 2 to process next MPCPT entry. 



S 4. Delete Start Partition XECB. 



XECBTAB TYPE=DELETE 
XECB=DLZXCBnO 



<> 5. Delete ABEND XECB. 



XECBTAB TYPE=DELETE 
XECB=DLZXCBn3 



6. Set XECBs deleted for this partition. 



7. Return to Step 2 to check next MPCPT 
entry. 



■-OUTPUT- 



_jsH MPCPT 

^ Entry 




DLZMPCOO - Master Partition Controller CSECT 



Extended Description 


Routine 


Label 


1 . This routine is entered from the MI*C 




MPCSTRN { 


Wait routine when the Stop Transaction 
(MPS) XECB (DLZXCBOO) is posted 
by DL/r Stop Transaction Task 
(DLZMSTPO). 






If error return on DELETE, issue 






message DLZ082L 






2. Flag MPCTSTP is turned on. 




MPCSXCK 


3. The Start/ ABEND XECBs are .deleted 
for inactive partitions (flag MPCPACT 
off) unless they have already been 
deleted (flag MPCXECB on). 






4. If error return on DELETE, issue 




XECBSDEL 


message DLZ082L 






5. If error return on DELETE, issue 




XECBADEL 


message DLZ082L 






6. Flag MPCXECB is turned on. 




MPCSTRN3 


7. 




MPCDELUP 



Extended Description 



Routine Label 
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Figure 2-19.7. MPS Termination (Part 2 of 2) 



■■ INPUT 



MPCPT Entry 



MPCFLAG 



fl] 



MPCPT Entry 



■- PROCESS < 



8. Scan MPCPT entries for an active 
partition. Go to Step 10 if no 
active partition is found. 

9. If an active partition is found: 

A. Check if XECB for batch partition 
still defined. 



XECBTABTYPE = CHECK 
XECB = DLZXCBn1 

B. If batch partition still active, 
go to Step 9F. 



C. Set cancel BPC indicator in MPCPT. 



D. Turn on BPC ABEND XECB 
POST bit. 



E. Go to Step 9G. 

F . I ssu e message D L Z086 1 . 

G. Return to MPC Wait routine 

10. Go to MPC Termination. 



•OUTPUT 





DLZMPCOO - Master Partition Control ler CSECT 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



8. A partition is active if MPCPACT is on. 

9. A. The XECBTAB/CHECK macro is 

is issued to determine if the batch 
partition is still defined. 

C. Bit MPCCNBPC in field MPCFLAG 1 
in the MPCPT is set on. 

D. R6 contains pointer to the BPC 
ABEND XECB (DLZXCBnS), The 
XPOST macro is not needed to turn 
on the POST bit because the 
ABEND XECB is defined by MPC. 




MPCDELCP 
MPCSXEND 

XECBATCH 
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Figure 2-19.8. MPC Stop Transaction Processing 



INPUT 



DLZXCB01 



r> PROCESS I 



From 
Caller 



1. Locate Stop Partition XECB. 



XECBTAB TYPE=CHECK 
XECB=DL2XCB01 



> 2. Delete Stop Partition XECB. 



XECBTAB TYPE=DELETE 
XECB=PLZXCB01 



3. Indicate MPS inactive. 

4. Return to CICS/VS. 



P- OUTPUT! 



(DFHPC TYPE=RETURN) 



> SCO 



To ' 

CICS/VS 

DFHPCP 



DLZMPCOO - Master Partition Controller CSECT 
Extended Description 



Routine Label 



Extended Description 



Routine Label 



1. This routine is entered when MPS is 
to be terminated normally or 
abnormally. 

2. If error return on DELETE, issue 
message DLZ082L 

3. Flag SCDXECB at SCDDBMPS is 
turned off and message DLZ094I 
is issued to indicate MPS stopped. 

4. 




MPCEXIT 
CICSRTN 
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Figure 2-19.9. MPC ABEND Exit Routine (Part 1 of 2) 
■ INPUT ■■ ■ *■ PROCESS -i— 



DLZXCBOO 



From 
CICS/VS 



a 



MPCPT 
Entry 



MPCPID 



h 



t. Indicate MPS inactive. 

2„ Delete Start Transaction (MPS) and 
Stop Transaction XECBs. 



"OUTPUT! 



XECBTAB TYPE=DELETE 
XECB=DLZXCBOO 



XECBTAB TYPE=DELETE 
XECB=DLZXCB01 



MPCPT 
Entry 



> 3. For each MPCPT entry, delete Start 
and ABEND XECBs. 



XECBTAB TYPE=CHECK 
XECB=DLZXCBn2 



XECBTAB TYPE=DELETE 
XECB=DLZXCBn3 



> 4. Locate this partition's BPC XECB. 



> SCD 



XECBTAB TYPE=CHECK 
XECB=DLZXCBn2 



2 > 5. Turn on the BPC XECB post bit. 



6. Return to Step 3 to get next MPCPT 
entry. At end of entries, continue to 
next step. 



> R1 



> DLZXCBn2 



DLZMPCOO - Master Partition Controller CSECT 
Extended Description 



Routine Label 



Extended Description 



Routine Label 



1 . This routine is entered from CIGS/VS 
if an ABEND occurs in MPC. Linkage 
was established through DFHPC 
TYPE=SETXIT in Figure 2-19.2. 

Flag SCDXECB at SCDDBMPS is 
turned off to show MPS as inactive. 

3. 

4. 

5. Note that the XPOST macro is not 
needed to turn on the POST bit because 
BPC XECB (DLZXCBn2) is defined in 
the same partition as this module. 
DLZXCBn2 is defined by DLZBPCOO. 




MPCABEXT 

DLETLOOP 
CHKXECB 
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Figure 2-19.9. MPC ABEND Exit Routine (Part 2 of 2) 



INPUT 



I PROCESS I 



, Set information for message 
DLZ104I and issue it. 



8. Return to CICS/VS. 



DFHPC TYPE=ABEND ^ 
ABCODE=DMPC j 



DLZMPCOO - Masfer Partition Controller CSECT 



To 
CICS/VS 



•OUTPUT- 



Extended Description 



Routine Label 



Extended Description 



Routine 



Label 



7. 

8. DMPC ABEND code defines MPC 
failure for CICS/VS dump ID. 




MSG104 
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Figure 2-20. Batch Partition Controller (Overview) 



INPUT 



From 

CICS/VS 

DFHPCP 



From 
CICS/VS 



I PROCESS 1 



1. Initialize BPC task. 
(See Figure 2-20.1) 

2. Issue online DL/I scheduling call 
on behalf of the batch partition. 
(See Figure 2-20.2) 

3. Wait on BPC and ABEND XECBs. 
(See Figure 2-20.3) 

4. If BPC XECB posted, process 
batch request. 

(See Figure 2-20.4) 

5. If ABEND XECB posted, terminate 
BPC. 

(See Figure 2-20.5) 



6. BPC abend exit routine. 
(See Figure 2-20.6) 



To 

CICS/VS 

DFHPCP 



.OUTPUT- 



DLZBPCOO 



Extended Description 


Routine 


Ubel 


1. 


DLZBPCOO 


DLZBPCOO 
BPCSTART 


2. 




BPCSCHCK 


3. 




BPCWAIT 


4. 




BPCCALL 


5. 




BPCEXIT 


6. 


. 


BPCABND 



Extended Description 



Routine 



Label 
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Figure 2-20.1. BPC Task Initialization (Part 1 of 3) 
■ INPUT II I f- PROCESS I 



DL/I 

Interface 

List 



CSAOPFL 


DLZNUCxx 
Address 


|SCADLI 1 




TCA 


^DL/I 
Nucleus 


SCD 
Address 


JTCAFCAAA | 



r 

From I 

Figure 2-20 I 
Step 1 I 

1-4 



> 1. Get number of partitions defined 
durmg SYSGEN and adjust 
partition identifier for BPC 
messages. 



■-OUTPUT- 



SCD 



MPCPT 

Entry 

Address 



MPCPT 
Entry 



2. Set MPCPT address and the 
specific MPCPT entry the BPC 
was attached for in the 
transaction work area. 



3. Set the partition active. 

^ 4. Save the partition ID. 

> 5. Locate the MPS batch XECB. 



w ^"^'y 



MPCFLAG 



> TWA 



XECBTAB TYPE=CHECK 
XECB=DLZXCBn1 



f>l 



DLZXCBnl 
Address 



XECBTAB 

Entry 

Address 



DLZBPCOO - Batch Partition Controller CSECT 



Extended Description 


Routine 


Label 


1 . Module identifier (DLZBPCOO vrnp) is 
defined here. 


DLZBPCOO 


DLZBPCOO 
BPCSTART 


The Batch Partition Controller (BPC) is 
attached by DLZMPCOO when a start 
request has been made by a partition. 






On entry, R12 contains address of TCA 
and R13 contains address of CSA. 






DLZXCBnl = XECB name for MPS 
batch partition, where n is the parti- 
tion ID based on key of partition. 






DLZXCBn2 = XECB name for a BPC 
for a specific partition (n). 






DLZXCBnS = XECB name for handling 
an abend condition for a specific 
partition (n). 






2. 




BPCCONT 


3. Flag MPCPACT in MPCFLAG indicates 
this partition is active. 






5. XECBTAB TYPE=CHECK macro is 
used to obtain the address of MPS 
batch XECB. 




XECBCHK 



Extended Description 



DLZBPCOO 

Routine 



Label 
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Figure 2-20.1. BPC Task Initialization (Part 2 of 3) 
f INPUT I I r PROCESS I 



[twabpcid I [twaxcbn2 I 



If error return on CHECK: 

A. Issue message DLZ082I. 

B. Set abnormal termination condition. 

C. Go to Figure 2-20.5, Step 3, to 
terminate BPC. 

Save DLZXCBnl XECB name and 
XECBTAB entry pointer. 



8. Set BPCs CICS/VS WAITM ECB list 
with BPCs (DLZXCBn2) XECB address 
and the delimiter. 



•■OUTPUT 



MPCPT Entry 
- | MPCAXECBj 



> 9. Define BPC XECB. 



10. 



XECBTAB TYPE = DEFINE 
XECB=DLZXCBn2 
ACCESS=XWAIT 



If error return on DEFINE: 

A. Issue message DLZ082 1. 

B. Set error indicator. 

C. Notify batch partition of the error 
condition. 

XPOST XECB = DLZXCBn1 

D. Wait on ABEND XECB. 

DFHKCTYPE = WAIT 



E. When control returns, clear ABEND 
XECB. 

F. Set abnormal termination condition. 

G. Go to Figure 2-20.5, Step 3 to 
terminate BPC. 



DLZBPCOO - Batch Partition Controller CSECT 



Extended Description 



Routine 



Label 



Extended Description 




Label 



9. BPC XECB (DLZXCBn2) is defined for 
cross partition communication with MPS 
Batch Initialization (DLZMINIT), MPS 
Batch Program Request Handler 
(DLZMPRH), and MPS Batch 
Termination (DLZMTERM). 

10. 

A. Flag MPCERR indicates an error 
condition. 

C. The POST bit X'80' in the XECB is 
turned off. 




XECBDFN 
BPCDFERR 
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Figure 2-20.1. BPC Task Initialization CSECT (Part 3 of 3) 

■■ INPUT I m PROCESS — — 



MPCPT 
Entry 



I pPRG 
J> 11 



Set BPCs CICS/VS WAITM ECB 
list with ABEND XECB address. 



12. Set abend exit routine for Batch 
Partition Controller. 



DFHPC TYPE=SETXIT 
ROUTINE=BPCABND 



13. Continue processing. 



■-OUTPUT- 



TWA 




o 





TWAWLIST 




TWAXCB2 


TWAXCB3 


TWAXCBDL 







DLZBPCOO - Batch Partition Controller CSECT 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



12. The BPCABND routine (see 
Figure 2-20.6) is within 
this module. 
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Figure 2-20.2. Issue Online DL/I Scheduling Call (Part 1 of 2) 



INPUT 



HI 



], I ^ 2. Issue DL/I scheduling call. 



BPC Register 
Save Area 



csv| 



MPCPT 
Entry 



I— ^ r 



TCA 



From 

Figure 2-20 
Step 2 

3. 



I PROCESS I 



1. Get parameter count, function call, 
and PSB name for DL/I call parameter 
list. 



Language 
Interface 



: ^ 3. If ABEND XECB is posted: 

A. Set abnormal termination 
condition. 

B. Clear the POST flag of ABEND 
XECB. 

C. Go to Figure 2-20, Step 5, 
to terminate BPC. 



> 4. If error return on scheduling 
call, set error indicators and 
error codes. 



TWA 


> 


TWASCHDC 




TWAPARMC 


TWACALL 


TWAPSBN 




> 


MPCPT 
Entry 






M PC FLAG 




MPCRC1 


MPCRC2 









DLZBPCOO - Batch Partition Controller CSECT 
Extended Description 



Routine 



Label 



1. Macro DLZXCBl defines a DSECT 
that represents the format of the 
fields after the MPS Batch XECB 
(DLZXCBnl) used here as a 
parameter Ust by BPC. 

Addressabihty to DLZXCBnl was 
obtained by the XECBTAB 
TYPE=CHECK macro in Figure 
2-20.1, Steps. 

4. Flag MPCERR at MPCFLAG is turned 
on. 




BPCSCHCK 



Extended Description 



DLZBPCOO 

Routine 



Label 
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Figure 2-20.2. Issue Online DL/I Scheduling Call (Part 2 of 2) 
pi INPUT ■ f- PROCESS 



|tTWAXCBNl] [tWANIPTR 



dZI 



[tTWAMSG I |tTWABPCSv[ 



5. Save the TCA address for MPS 
Batch (DLZMPIOO). 



6. Notify Batch Partition that 
DL/I scheduling call has been 
completed. 

^ XPOST XECB=DLZXCBn1 

7. If error return on XPOST: 

A. Issue message DLZ084I. 

B. Go to Figure 2-20, Step 5, 
to terminate BPC. 

8. Continue processing. 




OUTPUT- 



MPCPT 
Entry 

I MPCTCA I 



^ DLZXCBnl 
IXECB I 



To 

Figure 2-20 

Step 3 



DLZBPCOO - Batch Partition Controller CSECT 



Extended Description 



Routine Label 



6. 




BPCSCHDK 



Extended Description 


Routine 


Label 
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Figure 2-20.3. Wait on BPC and ABEND XECBs 



INPUT 



DL/I 
Interface 
• List 



C 



|+X'2C' 



DL/I 
Nucleus 



SCD 

I Address 



DLZXCBn3 



p- PROCESS < 

From I 

Figure 2-20 I 
Step 3 I 



r> OUTPUT 



> 1. Issue WAITM on BPC and ABEND 
XECB. 



DFHKC TYPE=WAIT 



"^ 2. When control returns, check if 
MPS still active. If not active, 
exit to Figure 2-20.6, Step 3. 



> 3. If BPC XECB posted, exit to 
Figure 2-20, Step 4. 

Jj^ 4. If ABEND XECB posted: 

A. Set abnormal termination 
condition. 



B. Clear post bit in XECB. 

C. Go to Figure 2-20, Step 5 to 
terminate BPC. 

5. Return to Step 1. 




DLZBPCOO - Batch Partition Controller CSECT 



Extended Description 


Routine 


Label 


1 . The XECBs are posted for the 




BPCWAIT 


following conditions: 






DLZXCBn2 






• Process call on behalf of batch 






partition. 






• EOJ has been encountered in batch 






partition. 






DLZXCBn3 






• An ABEND condition has been 






encountered in the batch 






partition. 






2. Flag SCDXECB is tested in 






SCDDBMPS. 







Extended Description 



DLZBPCOO 

Routine 



Label 
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Figure 2-20.4. Batch Request Processing (Part 1 of 2) 



INPUT 





XCB1 




|XCB1FLAG 1 




SYSTCA 
TCADLII 1 


System 
TCA 


PST 


Itcadlipa 


Ipstpread i 






XCB1 
XCB1CNT 1 



TWABPCSV 



XCB1CNT 
Address 



XCB1CNT 



pi PROCESS ' 



From 

Figure 2-20 
Step 4 



1. Clear POST bit in BPC XECB. 

2. If batch partition at EOJ go 
to Step 10. 

. — ^ 3. If a PST is not available go 
to Step 5. 



4. Indicate MPS task. 



5. Get address of call parameter 
list. 



I- OUTPUT- 



TWAXCBN2 



V 



PST 



PPST 
"I [PPSTIND 



> 6. Issue DL/I Call. 



DLZLIOO 



Language Interface 
Module 



>r- 





R1 






XCB1CNT 
Address 






XCB1 










XCB1CNT 











DLZBPCOO - Batch Partition Controller CSECT 







Label 


1. This routine is entered from BPC 
WAIT routine when the BPC XECB 
(DLZXCBn2) is posted by the batch 
program request handler. 






RIO points to the call parameter list 
in the MPS Batch partition. 






2. Macro DLZXCBl defines a DSECT 
representing the format of the MPS 
batch XECB and following fields 
used for communication between the 
batch and online partitions. 






The End-of-Job flag is set by 
DLZMPIOO termination routine in 
the field following the XECB. 






3. Flag TCADLIPS indicates a PST is 
available. 






4. Flag PPSTMPS in PPSTIND indicates 
this is an MPS task. 






5. 




BPCNOPST 



Extended Description 



DLZBPCOO 

Routine 



Label 



6. Entry point in the language interface 
module will be ASMTDLI or 
PLITDLI, depending on whether the 
user program is assembler or PL/I. 
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Figure 2-20.4. Batch Request Processing (Part 2 of 2) 

INPUT — — — I ■■ PROCESS — i 



I twaxcbnT] |twaniptr| 



izm 



TWA B PCS V 



r 



J 



7. Notify batch partition that the 
DL/I call has been completed. 

XPOST XECB=DLZXCBn1 

8. If error return on XPOST: 

A. I ssue message D LZ084I . 

B. Go to Figure 2-20, Step 5 to 
terminate BPC. 



9. Return to Figure 2-20, Step 3 
for BPC WAIT. 



10. Notify MPS Batch Partition that 
EOJ processing has completed. 



■-OUTPUT- 



± 



> 




To 

Figure 2-20 

Step 5 



> 



DLZBPCOO - Batch Partition Controller CSECT 



Extended Description 



Routine Label 



10. 




BPCEOJ 



Extended Description 



Routine Label 
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Figure 2-20.5. BPC Termination (Part 1 of 2) 



INPUT 




PROCESS 1 



1. Delete BPC XECB. 



][ 



TWABPCSV 



XECBTAB XECB=DELETE 
TYPE=DLZXCBn2 



•- ► 2. If error return on DELETE: 



^ A. Issue message DLZ082I . 



[mpcrebpc I' 



:iz 



CSA 


DL/I 


JCSAOPFLA 


Interface 
List 


SCD 




H 


X'2C' 1 




scddbmps 




1 


OPFL 




>» 


DL/I 
Nucleus 


ICSADLI 




SCD 
Address 













MPCPT 
Entry 



B. Set abnormal termination 
condition. 



^ 3. If BPC cancel indicator is not set, 
go to Step 6. 

4. Reset cancel BPC indicator. 

5. Go to Step 8. 

^ 6. If BPC for this partition to be 
reactivated, go to Step 8. 



" ^7. Issue message DLZ103I. 



8. If MPC abended, go to Step 14. 

9. Set partition stop indicator. 



.OUTPUT- 




S MPCFLAG1 
MPCCNBPC 



^>10. Turn on stop partition XECB 
^ post bit. 



V. MPCPT 

^ Entry 



MPCADBPC 



DLZBPCOO - Batch Partition Controller CSECT 



Extended Description 


Routine 


Label 


1 . This routine is entered on normal 
or abnormal termination of BPC. 




BPCEXIT 


3 . Bit MPCCNBPC is set by MPC when it 
determines that the batch partition no 
longer is active (i.e. 'cancel' replied to 
an access method message in batch 
partition). See 'Note'. 






6. Bit MPCREBPC is set by MPC when it 
determines that a BPC is still active for 
a partition and an MPS job is initiated 
for that same partition. See 'Note'. 




BPCEXIT2 


Note: The test in Step 3 and 6 are 
done to suppress output of message 
DLZ103I. 






7. 




BPCEXITl 


8. Flag SCDXECB at SCDDBMPS 
indicates if MPS is active or not. 






9. Flag MPCPSTP in MPCFLAG is the stop 
partition indicator for DLZMPCOO. 







Extended Description 



DLZBPCOO 

Routine 



Label 



10. Note that the XPOST macro is not used 
to turn on the POST bit since the XECP 
was defined (DEFINED) in this partition 
(by DLZMPCOO). 
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Figure 2-20.5. BPC Termination (Part 2 of 2) 



INPUT 



DLZBPCOO - Batch Partition Controller CSECT 



• PROCESS I 



11. If abnormal termination go to 
Step 13. 



12. Return to CICS/VS. 



DFHPC TYPE=RETURN 



13. Set BPC abnormal termination 
completed indicator. 



14. Return to CICS/VS - ABEND. 



DFHPC TYPE=ABEND 
ABCODE=DBPC 
CANCEL=YES 



i- OUTPUT! 



To 

CICS/VS 

DFHPCP 



To 

CICS/VS 

DFHPCP 



c>. 



DLZBPCOO 



Extended Description 



Routine 



Label 



11. 

1 3 . Flag TWABPCOK indicates BPC 
ABEND processing was 
successful. 

14." DBPC ABEND code defines BPC 
failure for CICS/VS dump ID. 




CICSRTN 
BPCABEND 



Extended Description 



Routine 



Label 
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Figure 2-20.6. BPC ABEND Exit Routine 



INPUT 




am PROCESS ' 



■-OUTPUT 



1. Initialize message DLZ104I 
and issue it. 



> 2. Get this task's MPCPT entry. 



> 3. Delete this task's BPC XECB. 



XECBTAB TYPE=DELETE 
XECB=DLZXCBn2 



4. XPOST the MPS Batch XECB. 

XPOST XECB=DLZXCBn1 

5. Go terminate BPC abnormally. 




OLZBPCOO - Batch Partition Controller CSECT 
Extended Description 



Routine 



Label 



1 . This routine is entered from CICS/VS 
if an abend occurs in the Batch 
Partition Controller Module 
(DLZBPCOO). 

3. 




BPCABND 
MPC ABEND 



Extended Description 



DLZBPCOO 

Routine 



Label 
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Figure 2-21. MPS Batch (Overview) 

INPUT I 



From I" PR 

DOS/VS I 



From 

Application 

Program 



PROCESS I 



1. MPS Batch Initialization. 
(See Figure 2-21.1) 

2. MPS Batch Termination. 
(See Figure 2-21.2) 



3. MPS Batch Program Request 
Handler. 
(See Figure 2-21.3) 



4. MPS Batch Message Writer. 
(See Figure 2-21.4) 

5. MPS Batch ABEND Handler. 
(See Figure 2-21.5) 





OUTPUT- 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



L. 

2. 
3. 
4. 

5- 


DLZMPIOO 


DLZMINIT 

DLZMTERM 

DLZMPRH 

DLZMMSG 

DLZMABND 
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Figure 2-21.1. MPS Batch Initialization (Part 1 of 3) 



INPUT 



( SYSLOG 



C 



From 

Figure 2-21 
Step 1 



I PROCESS I 



I DLI, progname, psbname I 



- . . > 2. If data is valid go to Step 5. 



I DLI, 



^. 



n' 



, Read parameter statement and check for 
validity. 



COMRG Macro 
OPEN Macro 
GET Macro 



' > 3. If data is invalid, let operator reenter 

parameters. 



■ > 4. Return to Step 1 to recheck data or cancel. 



lOAREA 



DLI,progname,psbname 



DOS/VS 
Core Image 
Library 



CANCEL Macro 

"S 5. Save progname and psbname. 



> 7. Load Application program. 

LOAD TXT=NO Macro 
LOAD Macro 



DLZMPIOO - MPS Batch CSECT 



Extended Description 


Routine 


Label 


1. If UPSI byte bit is on, input is from 
SYSLOG. Send message DLZOIOA to 
have operator enter information. 


DLZMPIOO 


DLZMINIT 
CHECKIN 


If UPSI byte bit is off, input is from 
SYSIPT. 






Write message DLZ014A if end of file 
on SYSIPT. 






3. Write message DLZ087A if data 
invalid. 




PARMERR 


4. Read operator reply to decide if more 
parameters provided or if job cancelled. 




GETC0NS3 


5. 




CHECKOK 


7. If program not found, write message 
DLZ012Iandcanceljob. 




LOADAP 



Extended Description 



-OUTPUT^— 








5 SYSLST^^ — 1 
lOAREA 

1 1 




> lOAREA 

1 1 








PROGNAME 


PSBNAME 


(^ 1 


1 


II 


> USERPROG 

1 1 









DLZMPIOO 

Routine 



Label 
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Figure 2-21.1. MPS Batch Initialization (Part 2 of 3) 
INPUT ■ I- PROCESS ■— 



BG COM REG 



ABNDAB 1 ABNDPC 1 


ABSAVEAR PCSAVEAR 


II 1 



DLZMPIOO - MPS Batch CSECT 



8. Get partition identifier and modify XECB 
names in all uses of XECBTAB macro by 
this initialization routine. 



9. Check if MPS is active. 



I 



OUTPUT- 



DLZXCBnl 



XECBTAB TYPE=CHECK 
XECB=DLZXCBnO 



> 10. Locate ABEND XECB 



XECBTAB TYPE=CHECK 
XECB=DLZXCBn3 



11. Define MPS Batch XECB for this 
partition. 



DLZXCBnO 
Address 



XECBTAB 

Entry 

Address 



XECBTAB 

Entry 

Address 



XECBTAB TYPE=DEFINE 
XECB=DLZXCBn1 
ACCESS=XWAIT 



y^ 12. Set up program check and ABEND 
^^ handling routines. 



ri 



PSBNAME Address 



PROGNAME Address 



Etc. 



13. Wake up Master Partition 
Controller. 



AB Option 
Table 



PC Option 
Table 



► XPOST XECB=DLZXCBnO 

14. Wait until BPC started. 

XWAIT XECB=DLZXCBn1 



> DLZXCBnO 
XECB 



Extended Description 



Routine Label 



Extended Description 



Routine 



Label 



8. The XECB names referenced in the 
XECBTAB macros used by MPS batch 
initialization routine are modified 
based on the partition that this MPS 
batch job is in. 

The value of the PIK in BG COMREG 
always reflects the currently active 
partition's PIK. Because this job is 
currently active as it is checking the 
BG PIK, it will be the PIK of the 
partition where this job is. 

9. If a start batch XECB (DLZXCBnO) 
is not found for this MPS batch job 
Partition (n), write message DLZ089I 
and cancel. When found, the 
XECBTAB/CHECK macro returns in 
Rl the XECB address and in R14 the 
XECB table entry- 

10. Write message DLZ089I if the ABEND 
XECB for this partition is not found. 

1 1 . Write message DLZ082I if DEFINE 
is not successful. 




XECBCHK3 
XECBDEFl 



11. (Cont'd) 

Following MPS batch XECB (DLZXCBnl) 

are parameter fields used in communicat- 
ing with the online partition. Macro 
DLZXCBl contains the DSECT which 
describes this XECB and following fields. 

12. Save address of PC option table for 
DLZMPRH (Figure 2-21.3, Step 1). 

13. Notify the online partition (DLZMPCOO 
specifically) that an MPS batch job is ready 
to execute and write batch started message 
DLZ081I if XPOST successful. 

If XPOST unsuccessful, delete MPS batch 
XECB (DLZXCBnl), write message 
DLZ084I, and cancel. 

14. Wait is made for DLZBPCOO to post the 
MPS batch XECB (DLZXCBnl) to notify 
us it is initiahzed and has completed a 
DL/I scheduUng call for us. 




XPOSTl 
XWAITl 
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Figure 2-21.1. MPS Batch Initialization (Part 3 of 3) 



INPUT 





X^CB 




MPCPT Entry 
Address 




MPCPT Entry 




MPCFLAG 




,MPCRC1 




MPCRC2 



I PROCESS I 



DLZMPRH 
Address 



MPCPT 
Entry 


System 
TCA 


1 MPCTCA 1 


TCADLISA 1 
PST 


TCA 


1 TCASYAA 1 
PSB 


PSTPSB 1 
PDIR 


1 PSBLIST 1 


PDIRADDR 




PDIRCODE 





USERPROG 
I Entry Point | 



> 15. If error return on XWAIT: 

A. Write message DLZ084 1. 

B. Go to Figure 2-21, Step 5 for MPS 
Batch ABEND Handler. 



^16. Check if online partition successfully 
initialized for MPS. 



XECBTAB TYPE=CHECK 
XECB=DLZXCBnO 



> 17. Move program request handler 
address to COMREG. 



> 18. Locate BPC XECB. 



XECBTAB TYPE=CHECK 



. — — !J> 19. Set up parameter list for application 
program. 



^ 20. Check to be sure online partition is 

still there. 



XECBTAB TYPE=CHECK 
XECB=DLZXCBnO 



> 21. Exit to application program. 



Application 
Program 



22. Go terminate. 



•OUTPUT- 



XECBTAB 

Entry 

Address 



COBOL, RPG II, 

or Assembler PL/I 



r€Z3ri 



PCB 
Address 



DLZMPIOO - MPS Batch CSECT 
Extended Description 




entry 
Point 



I ^ SAVE 



Routine 



Label 



16. As the start partition XECBs are 
defined in DLZMPCOO, the corre- 
sponding MPCPT entry is saved for 
each following the XECB. If the XECB 
is not at the same address as earlier, 
indicating there was a deletion and new 
define, or it no longer exists, write 
message DLZ082I and DLZ099I, then 
ABEND. 

Write message DLZ095I and the return 
code if a scheduling error indicated. 

Write message DLZ085I if BPC could 
not be attached. 

18. 

19. If PL/I - a three-word list is set up 
with pointers to PCB list, amount 
of dynamic storage, and start of 
dynamic storage area for PL/I. 




MVCOM 
XECBCHK2 



Extended Description 


Routine 


Label 


19. (con't). 

If Cobol, RPG II, or Assembler - Rl 
points to first PCBADDR. 

The language indicator is set in the 
parameter field following the MPS 
batch XECB (See DLZXCBl Macro). 

20. If the start partition XECB is not^ 
found, write message DLZ082I, 
then ABEND. 

21. An application program runs as a 
subroutine of DLZMPIOO. 







^ 
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Figure 2-21.2. MPS Batch Termination 



INPUT 




PROCESS I 



1. Notify online batch partition 
controller for this partition 
to terminate. 



I OUTPUT- 



XPOST XECB=DLZXCBn2 

> 2. If error return on XPOST: 

A. Write message DLZ090I. 

B. Go to Figure 2-21, Step 5, 
to ABEND. 

-J> 3. Wait for online BPC to terminate. 

XWAIT XECB=DLZXCBn1 

- > 4. If error return on XWAIT; 

A. Write message DLZ090I. 

B. Go to Figure 2-21, Step 5, 
to ABEND. 

> 5. Delete MPS batch XECB. 



XECBTAB TYPE=DELETE 
XECB=DLZXCBn1 



6. The end. 



To 
DOS/VS 



XCB1 DLZXCBn2 | 


XCB1ECB 


1 1 


XCB1FLAG 









DLZMPIOO - MPS Batch CSECT 



Extended Description 


Routine 


Label 


1. This routine is entered when the 
application program completes. 




DLZMTERN 


If the application program is written in 
PL/I code, the SCDLIPLI flag in the 
SCD is reset to 0. 






Macro DLZXCBl defines a DSECT 
representing the format of the MPS 
batch XECB and following fields used 
for communicating with the online 
partition. 






The end-of-job flag is set to tell 
DLZBPCOO the batch partition is 
at EOJ and the BPC XECB is posted 
to tell DLZBPCOO to stop. 






3. 




XWAIT2 


6. 




EOJ 



Extended Description 



DLZMPIOO 

Routine 



Label 
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Figure 2-21.3. 

INPUT I 



MPS Batch Program Request Handler {Part 1 of 3) 

PROCESS ' 

From 
Applic 
Program 



Savearea 


RGB 
Address 




ABNDPC 





-| pPR( 

From I 

Application I 

Program I 







R2 








Call List 
Address 










2a\\ List 





















Call List 
Address 






Call List 







T 
I 



1. Reset PC STXIT if first call from PL/I. 



■-OUTPUT- 



2. Ensure parameter list does not contain 
more than 18 parameters. 



3. Check if all user parameter list addresses 
which should be, are within batch 
partition. 



"> 4. Move parameters to area following MPS 
batch XECB (DLZXCBnl). 



PC option 
Table 



PCS 
Address 



5. Notify BPC a DL/I call is ready to be 
processed. 



> 





XCB1 










XCB1CNT 


XCB1PARM 











XPOST XECB=DLZXCBn2 



6. Wait for BPC to complete processing 
the call. 

XWAIT XECB=DLZXCBn1 



> 



DLZMPIOO ~ MPS Batch CSECT 
Extended Description 



Routine 



Label 



Extended Description 



DLZMPIOO 

Routine 



Label 



1 . This routine is entered on each call to 
DL/I made by the application program. 

During the first entry to DLZMPRH, the 
PL/I STXIT routine and savearea 
addresses from the PC option table are 
saved if tlte application program is 
written inPL/L DLZMPRH also 
sets/resets a svs4tch (SCDLIPLI flag in 
SCD) on exit/entry to indicate whether 
current execution is in DL/I code or PL/I 
code. This is done to enable high level 
language debugging for PL/I to give 
diagnostic information if a program 
check occurs in PL/I code. 

PL/I reissues STXIT PC when application 
program starts. Therefore, DL/I must 
reissue STXIT to get control after PL/I 
issues its STXIT PC. 

2. Write message DLZ091I if more than 18 
parameters. 

3. Ensure call list and addresses it points to 
are within batch partition (except for 
PCB). If PL/I, ensure that pointers 
pointed to by pointers, are within the 
batch partition. 




DLZMPRH 

COUNTLP 
CHKMOVEl 



3. (cont'd) 

Write message DLZ092I if there is a bad 
address and ABEND. 

4. Macro DLZXCBl defines the DSECT 
describing the DLZXCBnl XECB used 
for communicating with the online 
batch partition controller (DLZBPCOO). 

5. If error return on XPOST, write message 
DLZ084I, then ABEND. 

6. If error return on XWAIT, write message 
DLZ084I, then ABEND. 




XPOSTO 
XWAITO 
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Figure 2-21.3. MPS Batch Program Request Handler (Part 2 of 3) 
INPUT ■ f- PROCESS — — — 



DLZXCBnO 


MPCPT 
Entry 


XECB 


1 MPCFLAG 1 


MPCPT 
Entry 





MPCPT System 
Entry TCA 




1 MPCTCA 


TCAFCTR 




TCA 






1 TCASYAA 








J 



System 
TCA 



TCADLII 



System 
TCA 



1 TCADLISA 


1 PSTABIND 1 





PSTUSER 






PSTSEGL 






PSTSEG 






Retrieved 
Segment 






1 



7. If an error occurred during online 
processing, go to Step 14. 



8. If error return code in TCA, go to Step 14. 



9. If no PST, go to Step 12. 



10. If a task or system ABEND, go to Step 14. 



11. Move data to user area. 



.OUTPUT — 



:> 



PSTUSER 



User I /O Area 



DLZMPIOO - MPS Batch CSECT 
Extended Description 



Routine 



Label 



Extended Description 



DLZMPIOO 

Routine 



Label 



7. MPCERR flag indicates an error condi- 
tion occurred during BPC processing. 
Write message DLZIOOI if on. 

8. Write message DLZ102I including the 
return code if present. 

9. The storage acquired indicator 
TCADLIPS is turned on by online 
nucleus DLZODP when the PST is 
acquired. 

If no PST, it just did a TERM call. 

10. Write message DLZ098I if PST con- 
tains an error. 

11. Write message DLZIOOI if the data 
addresses are invalid. 
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Figure 2-21.3. MPS Batch Program Request Handler (Part 3 of 3) 
■■ INPUT ■ ■■PROCESS 



r- 


1 




Register 
Save Area 







12. Check if MPC is active. 



XECBTABTYPE = CHECK 
XECB=DLZXCBnO 



> 13. Return to application program. 



14. Go to ABEND handler. Figure 
2-21, Step 5. 



To 

Application 

Program 



.OUTPUT- 



DLZMPIOO - MPS Batch CSECT 
Extended Description 



Routine Label 



12. If the START PARTITION XECB is 
not at the same address as when the 
batch job started indicating there was 
a deletion and new define, or if it no 
longer exists, write message DLZ082I 
and go to Step 14. 




NODATA 
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Figure 2-21.4. MPS Batch Message Writer 



INPUT 



I Message ID 



From 

Caller PROCESS > 

I — ' \ 1. Convei 



^ 2. Find message text. 



1. Convert message number to 
printable decimal. 



•OUTPUT- 



10 AREA 




Caller 
Registers 















DLZMMSGT 



Message Text 
Module 



I I 




> 3. Put message to console and printer 
unless caller indicates no message 
should be written to one of them. 



> 4. Clear output area and return. 



PUT CONSOLE 
PUT PRINTER 




I^ lOAREA 

I 1 











SYSLOG SYSLST 










To"* 
Caller 



> 



DLZMPIOO - MPS Batch CSECT 

Extended Description 



Routine 



Label 



1. This routine is entered when a 
message is to be written to SYSLOG 
and/or SYSLST. 

2. The message module DLZMMSGT 
includes all messages that can be 
issued by MPS and is used in both 
the batch and online partitions. 

3. 




DLZMMSG 
PUTC0NS2 



Extended Description 



DLZMPIOO 

Routine 



Label 
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Figure 2-21.5. MPS Batch ABEND Handler 



m INPUT 



DLZXCBnl > 



> 





1 










FLAG 




UPSI 

























B Entry* |" PROCESS i 

I 1.Set 
S > 2. Save 



PC Entry* 



All Other 
Entries* 



1. Set AB entry indicator. 

2. Save ABEND code and go to 
Step 4. 



3. Set PC entry indicator. 

4. If error occurred while in PL/I code, 
modify return address and branch to 
PL/I STXIT PC routine. 

5. Write error message DLZ096I. 



6. Notify online an ABEND 
condition exists. 



XPOST XECB=DLZXCBn3 



7. Delete this partition's MPS 
batch XECB. 



XECBTAB TYPE=DELETE 
XECB=DLZXCBn1 



8. Cancel if entered via AB or PC 
STXIT and dump not required. 



CANCEL 

9. Get a dump and end. 

■■■^ JDUMP 



DLZMPIOO - MPS Batch CSECT 



Extended Description 



Routine 



Label 



* There are three entries to 
this routine: 

1. AB STXIT 

2. PC STXIT 

3. The MPS Batch InitiaUzation, MPS 
Batch Termination, and MPS Program 

- Request Handler routines (whenever 
XPOST is i^eeded to teU online that 
batch completed unsuccessfully). 

1 . The AB output area is located in a 
dump following the DC C 'AB SAVE' 
characters. 

The AB reason code is located in a 
dump followmg the DC C *AB 
ABEND CODE'. 

2. The PC output area is located in a 
dump followmg the DC C TC SAVE' 
characters. 

4. The address of the PL/I STXIT PC 
routine was saved during the first entry 
to DLZMPRH (see Figure 2-21 .3, Step 1). 
After PL/I completes diagnostic infor- 
mation, processing returns to modified 
address in DLZMABND. 




ABNDAB 
ABNDPC 



Extended Description 



I 



OUTPUT- 



rzn 



>, 



"> ABREASON 



>, 



> 



DLZMPIOO 

Routine Label 



5. 
6. 
7. 
9. 

■ 




ABPC 

DLZMABND 
XP0ST3 
JDUMP 
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Figure 2-22. Stop Transaction 



■ INKUI ■■ 


R1 






DLZXCBOO 
Address 











From 

CICS/VS 

DFHPCP 



•■ PROCESS I 



■-OUTPUT 



1. Locate stop transaction (MPS) 
XECB. 



XECBTAB TYPE=CHECK 
XECB=DLZXCBOO 



2. Turn on POST bit in stop 
transaction (MPS) XECB. 



3. Return. 




DFHPCTYPE=RETURN 



To 

CICS/VS 

DFHPCP 



DLZMSTPO - MPS Stop Transaction CSECT 







Label _ ^ 


1. Module identifier (DLZMSTPO) 


DLZMSTPO 


DLZMSTPO 


is defined here. 






Write message DLZ080I if 






DLZXCBOO does not exist - 






MPS not active - and go to 






Step 3. 






2. Note that the XPOST macro is 






not needed to turn on the POST 






bit because stop transaction 






XECB (DLZXCBOO) is defined in 






the same partition as this module. 






DLZXCBOO is defined by 






DLZMPCOO. 






3. 




RETURN 



JBctende^Description 



DLZMSTPO 

Routine L^f3^| 
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Figure 2-23. Queuing Facility (Overview) (Part 1 of 2) 



INPUT 



R6 



First Half 
of resource 
ID 



Second Half 
of resource 
ID 




PROCESS ' 






QENQDEQ (See Note) 

1. Initialize registers and 
data fields. 



2. If requested function is 

'purge', exit to QPUR routine. 



-OUTPUT- 



Process Purge 
Requests 

2-23.1 



Upon return, go to Step 7. 

3. Locate RDB, if any, for 
given resource ID. 
If no RDB located, go 
to Step 7. 



4. If requested function is 
'dequeue', exit to QDEQ 
routine. 



QWAFLG1 




Upon return, go to Step 7. 



> 



If found: 


R2 




Compliment 
of RDB 
Address 


If not found: R2 




Last Position 
on Queue 







DLZQUEFO - Queuing Facility CSECT 



Extended Description 


Routine 


Label 


Note: QENQDEQ is the general purpose 






entry point for requests to 'enqueue; 






'dequeue', or 'verify' a resource, or to 






'purge' all enqueues for a task. 






1. Module identifier (DLZQUEFOvrnp) 


QENQDEQ 




is defined here. The level format is 






vrnp; where 'v' is the version, 'r' is 






the release, 'n' is an additional 






identification number, and 'p' is the 






latest PTF number that has been 






applied. 






3. The proper queue head is first located 


QLOCRDB 




by hashing the resource ID. That 






queue is then searched for a RDB 






with the same resource ID. If found. 






its address is passed back compU- 






mented. Otherwise, the address of 






the last position on the queue is 






returned. 







Extended Description 



Routine 
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Figure 2-23. Queuing Facility (Overview) (Part 2 of 2) 

mm PROCESS —— 



■ INKUI mmmm 


F 1 

pSTFNCTN 
PST 


■ 




PSTFNCTN 






SCD . 






SCDA.BEND 




SCDERRMS 









5. If requested function is 
'enqueue' or Verify' 
exit to QENQVER routine. 



QENQVER 



Process 

Enqueue/Verify 

Requests 

2-23.3 



Upon return, go to Step 7. 

6. If the PSTFNCTN Field 
contains an unrecognizable 
function code, terminate 
the task. 



DL/I ABEND 
Routine. 



7. Return. 



f OUTPUT- 



-k 



:> 



— if normal exit 

4 — if error resulting 
in termination 
occurred 



DLZQUEFO - Queuing Facility CSECT 



Extende^Descnption 



6. Message DLZ267I is issued. 

7. This routine is used for common 
processing during exit for enqueue, 
dequeue, verify, and purge request. 

If processing is successful, a return 
code is set in R15. Otherwise, the 
PST return code field (PSTRTCDE) 
is checked for error return codes. 
If present, the Rl 5 return code is 
set to 4 and the registers are saved 
in the ABEND save area. 
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Figure 2-23.1. 

■.INPUT n il 



Process Purge Requests 



C 



PSTRRDF 



PSTRRDL 




PROCESS < 



^ B 



QPUR (See Note) 

1. Scan each RRD attached to 
the PST RRD chain. For 
each RRD: 

A. Unchain the RRD from 
the PST forward chain 
by storing the address 
of the next RRD in the 
'first' PST pointer. 



if the task is an owner of 
the resource, the owner- 
ship is released and new 
owners, if any, are located 
and promoted. 

If the task is not an owner, 
the RRD is unchained from 
the RDB-RRD chain and its 
space is returned to the free 
block queue. Flag parameters 
are then passed to any other 
waiting task. 



. When all RRDs on the chain have 
been processed, the 'last RRD' 
pointer is reset. Also, the number 
of resources owned and the wait 
chain pointer are both set to 
zero. 



3. Exit to QRETURN. 



.OUTPUT- 



> 






PST 






PSTRRDL 




PSTNORO 




PPST 






PPSTCW 











DLZQUEFO - Queuing Facility CSECT 



DLZQUEFO 







Ubel 






Routine 




Note: This routine is used to purge all 
complete or outstanding enqueue requests 
for a given task. 














1. A. The. address of the next RRD 
is saved because it would be 
destroyed when the current 
RRD is returned to the free 
spale. 


QPUR 












B. This routine is called to 
relinquish ownership of a 
resource by dequeuing the RRD 
for the task. It is entered by 
purge at entry point QDEQPUR 
to avoid the unnecessary 
overhead of unchaining the 
RRD from the PST. 


QRELRSC 












C. 


QPURl 

QRETBLK 

QPFLAGP 












2. 


QPUR2 












3. 


QPURX 
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Figure 2-23.2. Process Dequeue Requests (Part 1 of 2) 
■ INPUT I I pi PROCESS — 



From 

Figure 2-23 
Step 4 



QDEQ (See Note) 

1. If an RDB previously located 
(Figure 2-23, Step 3), locate the 
RRD. 

If no RRD exists, exit to 
QRETRUN (Figure 2-23, 
Step 7). 

2. Decrement by 1, the ownership 
count for the specified 

level. 



3. If the remaining ownership count 
is not zero (or if it is zero, but 
the level is not the maximum 
for the RRD), pass any FLAG 
parameters to the waiting tasks. 
Then go to Step 6. 



pi OUTPUT- 



•> 



RRD Address 



DLZQUEFO - Queuing Facility CSECT 
Extended Description 



Note: This routine is used to process 
a request to dequeue a resource. 



1. 



2. This routine is also used by 'verify' 
processing to dequeue a resource 
that was enqueued due to a required 
wait. 




QDEQVER 



QDEQVER2 
QPFLAGP 
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Figure 2-23.2. Process Dequeue Requests (Part 2 of 2) 



m INPUT 



-[ 



PROCESS I 



4. If any counts are left at 
lower levels: 

A. Lower current level of 
ownership by task. 

B. Promote any new owners 
made eligible by the 
decrease in level. 

C. Go to step 6. 



5. If no counts are left at any 
level : 

A. Release the resource. 

B. Promote any new owners 
made eligible by the 
release. 



6. Exit 



f OUTPUT- 




Extended Description 


Routine 


Label 


4. 


QDEQVER3 
QDEQVER4 
QDEQVER5 
QPNDWCM 




5. Entry point QDEQPUR in this 


QRELRSC 




routine is used by 'purge' 






processing to release a resource 






already unchained from the 






PST/RRD chain. 






6. 


QDEQVERX 
QRELRSCX 
QDEQPURX 





Extended Description 



Routine 



Label 
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Figure 2-23.3. 

. INPUT m 



Process Enqueue/Verify Requests (Part 1 of 2) 
■ PROCESS — — 



From 

Figure 2-23 
Step 5 



QENQVER (See Note) 

^ 1. Check if RDB exists. 
If RDB does not exist: 



New Request 
Enqueue 

2-23.4 



Upon return, go to Step 6. 



2. If RDB does exist, call 
QPFLAGP to pass any 
flag parameters to 
waiting tasks. 



3. Locate RRD or position 
on chain. 



4. If RRD exists: 



.OUTPUT- 




Existing Resource 
Enqueue 

2-23.5 



Upon return, go to Step 6. 



DLZQUEFO - QueiJing Facility CSECT 



Extended Description 


Routine 


Label 


Note: This routine is used to process 
enqueue and verify requests. It deter- 
mines the type of enqueue (or verify) 
and enters the proper routine for the 
type. The possible types are: 






• New resource enqueue - The enqueue 
of a resource not currently enqueued. 






• Existing resource enqueue - The 
enqueue of a resource currently 
enqueued, but not by this task. 






• Re-enqueue - The enqueue of a 
resource currently enqueued by 
this task. 






Processing of enqueue and verify 
requests is essentially the same. The 
difference is that on the return from 
verify processing, the user is not the 
owner of the resource . 






1. 


QENQVER 




2. 


QPFLAGP 




3. 


QLOCRRD 





Extended Description 



DLZQUEFO 

Routine 



Label 
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Figure 2-23.3. Process Enqueue/Verify Requests (Part 2 of 2) 
■■ INPUT II I ■■ PROCESS ■-«— — 



5. If RRD does not exist: 



Re-enqueue 
2-23.6 



6. Exit 



DLZQUEFO -Queuing Facility CSECT 



I- OUTPUT- 




DLZQUEFO 



Extended Description 



Routine Label 



Extended Description 



Routine Label 



6. 


QENQVERX 
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Figure 2-23.4. 

■■ INPUT i^mmmi 



New Request Enqueue 



IpstpnctiTI 



From 

Figure 2-23.3 
Step 1 



'PROCESS I 



QNRENQ (See Note) 



- ► 1. If the function is 'verify', 
processing is complete 
at this point because the 
resource is available. Go 
to Step 3 to return to 
caller. 



^ 2. If the function is 'enqueue': 

A. Build and initialize an 
RDB and chain it on the end of 
the proper RDB queue. 

B. Build and initialize a 
RRD and attach it to 
both the RDB and PST 
RRD chains. 

C. Define the task as a 
resource owner. 



3. Exit. 



i- OUTPUT- 




[ 


R2 




R3 




II 


1 








>R3 


L 


'New' 


RRD Address | 



DLZQUEFO - Queuing Facility CSECT 



Extended Description 


Routine 


Label 


Note: This routine is used to process 






an enqueue (or verify) request for a 






resource that has no current enqueues 






outstanding. 






2. A. R2 points to RDB chain 


QBLDRDB 




location. R3 points to RRD 






chain head in RDB. 






B. 


QBLDRRD 




C. 


QDASOWN 




3. 


QNRENQX 





Extended Description 



DLZQUEFO 

Routine Label 
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Figure 2-23.5. Existing Resource Enqueue 

■ INPUT I 11 mm PROCESS 






RDB PST 


1 RDBMAXL 1 


PSTQLEV 


PSTFNCTN 







> 



From 

Figure 2-23.3 
Step 4 



> 



QREENQ (See Note) 

1. If the requested level is not 
higher than the current 
maximum for the task, the 
resource is available. Therefore: 

A. If the requested function is 
Verify' go to Step 5. 

B. Otherwise, increment ownership 
count for the level by one. 

Go to Step 5. 



2. If the requested level is 
compatible with the 
current maximum for the 
resource and if the 
requested function is 

A. 'Verify' - Go to Step 5. 

B. 'Enqueue' — Define the task 
as an owner at the new level 
and go to Step 5. 

3. Otherwise, do deadlock 
detection and wait for 
resource availability. 

4. If function is 'verify', dequeue 
the enqueued resource. 



f OUTPUT! 



5. Exit. 




DLZQUEFO - Queuing Facility CSECT 



Extended Description 


Routine 


Label 


Note: This routine is used to process 






an 'enqueue' or 'verify' for a resource 






that is currently enqueued by the 






requesting task. 






2. 


QREENQl 
QREENQ4 




B. 


QREENQl 
QREENQ5 




3. The task will be defined as an owner 


QREENQ3 




of the resource during 'dequeue' pro- 


QREENQ4 




cessing for other task. 


QWAIT 
QDLKDTN 




The QDLKDTN routine detects a 






deadlock condition and resolves the 






deadlock by picking and terminating 






one of the tasks involved. The task 






terminated is selected as follows: 







Extended Description 


Routine 


Label 


1 . Online tasks are picked before 
MPS tasks. 






2. Within a class, the task with the 
fewest resources currently enqueued 
is chosen. 






3. In the event of a tie, the choice 
is arbitrary. 






4. 


QREENQ3 
QREENQ4 
QDEQVER 




5. 


QREENQX 
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Figure 2-23.6. Re-enqueue 

INPUT M il 



RDB PST 


(rdbmaxl 1 


PSTQLEV 




PSTFNCTN 







*■ PROCESS I 



From 

Figure 2-23.3 
Step 5 



r 



I u 



QERENQ (See Note) 



' 1. If resource is available 
at requested level: 

A. If function is Verify', 
go to Step 3. 

B. Build RRD and chain to 
RDB and PST. 

C. Define the task as a 
resource owner. 



D. Go to Step 3. 



2. If resource is not 
available at requested 
level. 

A. Build RRD and chain to 
RDB and PST. 

B. Do deadlock detection 
and wait for resource 
availability. 

C. If function is 'verify', 
dequeue the enqueued 
resource. 



3. Exit. 



pi OUTPUT- 




DLZQUEFO - Queuing Facility CSECT 



Extended Description 


Routine 


Label 


Note: This routine is used to process an 






'enqueue' or 'verify' request for a 
resource that is currently enqueued, but 
not by the requesting task. 

1. 


QERENQ 




B. To build and chain RRD, call 
QBLDRRD. 


QBLDRRD 




C. To make task a resource owner, 
call QDASOWN. 


QDASOWN 




2. 


QERENQ2 




A. To build and chain RRD, call 
QBLDRRD. 


QBLDRRD 




B. The task will be defined as an 
owner of the resource, during 
'dequeue' processing for other 
tasks. 


QWAIT 
QDLKDTN 





Extended Description 


Routine 


Labe! 


The QDLKDTN routine detects a 
deadlock condition and resolves the 






deadlock by picking and terminating 
one of the tasks involved. The task 






terminated is selected as follows: 






1 . Online tasks are picked before 
MPS tasks. 






2. Within a class, the task with the 






fewest resources currently enqueued 
is chosen. 






3. In the event of a tie, the choice 






is arbitrary. 






C. 


QERENQ3 
QDEQVER 




3. 


QERENQX 
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Figure 2-24. Visual Table of Contents for DL/I Utility Modules HlPO Charts 
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Data Base 
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Utilities 




ACB 
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DLZUDMPO 
DB Data set 
Image Dump 

2-25 




DLZURULO 

HSDB 

Unload 

2-29 




DLZUACBO 
ACB Creation 
(Overview) 

2-33 




DLZURPRO 
Prereorgani- 
zation 

2-34 






















DLZUCUMO 
DB Change 
Accumulation 
2-26 




DLZURRLO 

HSDB 

Reload 

2-30 




DLZURGSO 
DB Scan 

2-35 


















DLZURDBO 
DB Data Set 
Recovery 

2-27 




DLZURGUO 

HDDB 

Unload 

2-31 




DLZURG10 

Prefix 

Resolution 

2-36 


















DLZBACKO 
DB Change 
Back-Out 

2-2a 




DLZURGLO 

HDDB 

Reload 

2-32 




DLZURGPO 

Prefix 

Update 

2-37 














DLZLOGPO 
Log Print 

2-39 





DLZTPRTO 
Trace Print 
Utility 



DLZDSEHO 

Workfile 

Generator 

2-38 
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Figure 2-25, 

> INPUT 



DB Data Set image Dump 




PROCESS I 



DLZUDMPO - DB Data Set Image Dump Utility 



Extended Description 



1. Read control card and 
validate contents. 

2. Determine device type for 
output file specified 
and open file. 



Load DMB and obtain 
physical attributes of 
data set. 



4. Write DL/I header to 
output file. 



^ 5. Open input file and read 
segments sequentially, add 
8-byte prefix to identify the 
segment, and block and 
write the logical record 
(prefix + segment) to the 
output file. 



6. Write image dump messages. 



7. Return to Step 1 if there are 
more input control cards. 



.OUTPUT- 



QQ 



SYS011 
(SYS012) 



■dos/vs 




Routine 



Label 



1. Read and validate control statement. 
Write the following messages as needed: 

DLZ302I - Column 1 not D 
DLZ303I - Column 2 not 1 or 2 
DLZ304I - DBD name field not specified 
DLZ307I - Input filename not specified 
DLZ308I - Output filename not specified 
DLZ309I - Error(s) found in control 

statement 
DLZ310I - Image of erroneous control 

statement 

2. DLZDVCE macro obtains data from 
PUB.Device type may be tape or DASD. 

4. The header record contains information 
that allows the use of the image dump 
file by the DB data set recovery utility. 







Extended Description 



DLZUDMPO 

Routine 



Label 
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Figure 2-26. DB Change Accumulation (Part 1 of 2) 



INPUT 



Control Cards 



From DOS/VS 



I PROCESS 




1. Get time and date of this 
execution. 

j^ 2. Call Input Card Processor 
(Figure 2-26.1) to read and 
process control cards. 



3. If no CUMOUT, but LOGOUT, call 
Write Logout (Figure 2-26.2) 
to write logout. 



i- OUTPUT! 



From Fig. 
2-26.2 



T]> 4. If CUMOUT, loaded sort program 
*^ (SORT) will sort LOGINxx records 

and call Write Logout (Fig 2-26.2) 
and Sort Module (Fig 2-26.3). On 
completion of sort, go to step 6. 



Entry for error detected in 
DLZUC150 (Write Logout). 



5. Establish Addressability. 




LogouT 

(optional) 



DLZUCUMO - Cliange Accumulation Utility 
Extended Description 



Routine 



Label 



1 . Header line is printed on SYSLST. 




riMEDEC 


2. Three returns as follows: 




READCD 


• Error - issue error message. 




BADEND 


• No accumulation output, call Write 




GOODEND 


Logout (Fig 2-26.2). Then issue 






successful run message. 






• Accumulation output, call SORT. 




SORT 


4. SORT is invoked by LOAD and 




SORT 


BALR. At exit 35, Sort Module (Fig 






2-26.3) is called. 






5. This entry point is necessary because 




DLZERRTN 


Write Logout, not knowing who called 






(DB Change Accumulation or SORT), 






must return to this module if an error 






was detected. 







Extended Description 



DLZUCUIVIO 

Routine Label 
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Figure 2-26. DB Change Accumulation (Part 2 of 2) 

INPUT ■MaMnMMHiiiHHMil IP PROCESS 



,6. Call Write Messages (Figure 2-26.4) 
to write completion message. 



7. Exit. 



I 



OUTPUT- 



Return to 
DOS/VS 



rn 



SYSLST SYS LOG 



DLZUCUMO - Change Accumulation Utility 
Extended Description 



Routine 



Label 



Extended Description 



DLZUCUMO 

Routine 



Label 



6. May be OK message or error message 
from SORT, Write Logout, or Sort 
Module. If PROCTERM X'Ol ' bit is 
on in PROCFLAG, an error occured. 




CLOSE 
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Figure 2-26.1. Input Card Processor (DLZUCCTO) 



INPUT 



a 



From Fig, 
2-26 Step 2 



I PROCESS 



■-OUTPUT 




DMB from 
CIL 



^ 1. Read control cards, validity 
check, and create Log Input 
Specification Table. 



2. Save appropriate control card 
data. 



3. Issue GETVIS for DB and 
Date/Time Table, if required. 



4. Check for valid DMB in CIL. 
Prepare DB Table and Date/Time 
Table in alphabetical order. 



5. Test for valid combination of 
cards or no input (use default 
values). 



6. Return to caller. 




DLZUCUMO— Change Accumulation Utility 



Extended Description 


Routine 


Label 


1 . Possible card types are : 




GETCARD 


• 'ID' specifies db number, max key 
length, number of sort, work, and 
log files. 






• 'DBO' describes records to be 
accumulated from input and 
written to CUMOUT. 






• 'DBl' describes records to be 
written to new log file . 






• 'EI' describes a log input file. 






• Error card - call Write Message 
(Fig 2-26.4) to write appropriate 
error message. 




ERROR 


2. Data from control card(s) is saved in a 
dsect residing in DLZUCUMO, 
addressable by all modules in this 
utility. The dsect name is DLZUCUMC. 







Extended Description 



DLZUCUMO 

Routine 



Label 



3. Tables are not required if *ALL was 
spe cified . The number of entries in 
each table is equal to the number of 
data bases as specified on the ID control 
card or default of 16. 

4. This information is filled from the DBO 
and/or DBl card(s) if present. 

5 . If any errors occur during steps 3,4, 
of 5 , call Write Messages (Fig 2-26.4) 
to write error messages and exit. 




GETMAIN 
DDNUMCHE 
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Figure 2-26.2. Write Logout (DLZUC150) 

■■ INPUT II I ! 



Parameter 
List 



From Caller f PROCESS ' 
(See Note) I 



f OUTPUT 



A (record) 



A (rtncode) 





-^ 1. Establish addressability and save sort 
■^ parameter list address. 



2. If initial entry, open LOGIN and 
LOGOUT (if needed). Obtain work- 
space via GETV IS. 



3. Read log records bypassing all but 
'2F'and'50'. 



4. The '50' record is bypassed under 
certain conditions. 



5. Write the selected '50' record to 
output log file. 



6. Pass selected log records to SORT 
module and return. 



7. If any error occurs, exit to DLZUCUMO 
(Fig 2-26, step 5). 



8. After all input records are processed, 
return to caller. 




DLZUCUMO - Change Accumulation Utility 
Extended Description 



Routine 



Label 



Extended Description 



DLZUCUMO 

Routine Label 



Note: This program has two entry points: 

• DLZUC150- from SORT. 
Entered when SORT wants 
another input record. 

• DLZUEX15 - from Figure 2-26, 
step 3 (DLZUCUMO). 

3. On EOF, the file is closed. If more input 
specified, xx (LOGINxx) in the DTF 

or ACB is incremented by 1 and the 
next log file is opened. 

4. Bypass '50' record for the following: 

• *ALL and log date/time less than 
purge date/time. 

• dbname match and log date/time 
less than purge date/time. 

• No dbname match and *OTHER 
not specified. 







4. (con't) 

• No dbname match and log date/time 
less than purge date/time. 

5. Write log record for the following '50': 

• *ALLonDBlcard. 

• Dbname match and dbname on DBl 
card. 

• No dbname match and *OTHER on 
DBl card. 
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Figure 2-26.3. Sort Module (DLZUC350) 



pi INPUT 



Parameter 
List 



Sorted log 
record 



A (logrec) '> 



A (retncod) 



From SORT f" PROCESS i 

_4- 




5 



^ 1. Receive log record from SORT. 



> 



2. initial entry processing as follows: 

A. Process '2F' record and obtain 
workspace via GETVIS. 

B. Determine device type for CUMIN 
(if specified) and CUMOUT. 



3. Sorted log records are merged with 
matching CUMIN records (if specified) 
and records written to CUMOUT. 



■-OUTPUT- 



4. When next log record needed, return 
to SORT. 



5. When all log records and CUMIN 
records are depleted, return to SORT. 





DLZUCUMO - Change Accumulation Utility 
Extended Description 



Routine 



Label 



Extended Description 



DLZUCUMO 

Routine 



Label 



1. SORT returns at EOF with an indication 
that no more records exist. 

2. DLZDVCE macro obtains data from 
PUB. Device type may be TAPE or 
DASD. 

3. The following merging logic is used for 
comparison of LOGIN and CUMIN to 
create CUMOUT. 

• For every new DMB name (data set 
ID), an accumulation header record 
is written either from the CUMIN 
record or created from the '2F' 
record. 

• Every CUMIN record is purge 
checked by date/time as specified 
by the user. The DB table as 
modified by DLZUCl 50 is used 
for a specific DMB or the *ALL/ 
*OTHER purge date is used as 
applicable. 

• If a matching log record is found, 
all log records with the same data 
ID will be merged with the CtJMIN 




DLZUEX35 
TSTEODDB 



3. (con't) 

record and written to CUMOUT. 

• If there is no matching log record, 
the CUMIN record is written to 
CUMOUT unchanged. 

• If log records exist but no CUMIN, 
the log records are accumulated by 
data ID and written to CUMOUT. 

4. A 'delete' return code is given to SORT 
so that SORT does not further process 
the current record. SORT will prepare 
the next input record and enter this 
program at step 1 . 

5. Free all work areas and close CUMIN 
and CUMOUT. 

Indicate 'no return' to SORT. 




ENDJOB 
ENDSORT 
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Figure 2-26.4. Write Messages (DLZUCERO) 



INPUT 



DLZCUMMO 


msg 


1 


msg 


2 


r t 


msg 


" 



From caller r PROCESS i 

(See Note) I 



^OUTPUT 



>1. Obtain address of the message csect 
(DLZCUMMO) and output DTF. 



> 



2. If multi-part message and first time 
through, 

A. Calculate address of message. 

B. Set Register 2 to next print 
position. 

C. Go to step 5. 



. ^ 3. Calculate address of message if 
^^ single part message. 



4. Write output message. 



5. Exit. 




DLZUCUMO^- Change Accumulation Utility 



Extended Description 


Routine 


Label 


Note: This module can be called by 






DLZUCUMO, DLZUCCTO, 






DLZUC150,orDLZUC350. 






1. The address of the output DTF which 




INITSV 


has already been opened, is found in 






the CUMCONST table. 






2. Multi-part message is indicated by 




TESTR2 


negative R2. 






3. Rl contains message number. 




MSGCOMM 


4. Output can be to SYSLST or SYSLOG. 




MSGWRT 


5. 




RETURN 



Extended Description 



DLZUCUMO 

Routine 



Label 
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Figure 2-27. DB Data Set Recovery (Part 1 of 2) 



!■ INPUT 



:: 



SCD 



>| P- PROCESS ' 

From I 

DLZRRCOO I 

' ^ I.Obtair 



:: 



Required: 




Optional: 




CUIVIIN 



1. Obtain DL/I control block 
addressability via GSCD 
call. 



^ 2. Read and process control 
cards. 



DLZURCCO 



Control Statement 
Processor 

2-27.1 



3. Determine device type for 
each input. 

4. Open data set (open ACB 
call). 



DLZDLOCO 



Open/Close 
2-14 



5. If processing only log 
records, go to Step 10. 



^ 6. Open Input file(s) and 
process DL/I header 
information. 



F OUTPUT! 



DLZURDBO- DB Data Set Recovery Utility 
Extended Description 



Routine 



Label 



2. There are, three returns: 






• No errors - continue processing. 




GETDMB 


• No input statements - terminate 
processing. 




CLEANUP 


• Error — issue error message and 
terminate processing 




BADRUN 


3. DLZDVCE macro obtains data from 
PUB. Device type may be tape or 
DASD. 






6. DUMPIN file is mandatory and may 
be output from DLZUDMPO or 
DLZURULO. 






CUMIN file is optional and is output 
from DLZUCUMO. 







Extended Description 



DLZURDBO 

Routine 



Label 
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Figure 2-27. DB Data Set Recovery (Part 2 of 2) 
INPUT I r PROCESS • 




LOGIN01 to LOGINxx 



DLZURDBO - DB Data Set Recovery Utility 
Extended Description 



7. Read and merge data and 
write records. 



DLZDBHOO 



DB Buffer 
Handler 
2-15 



8. Close input files. 

9. If no log input is to be 
processed, go to Step 13. 

10. Open LOGIN file. 



J^ 1 1 . Process all log records for 
^ this data set. 



DLZDBHOO 



DB Buffer 
Handler 
2-15 



12. Close LOGIN file. 

13. Close Data set (close ACB 
call). 



14. Exit. 



.OUTPUT- 



iQ 



if==1 



Data Set 



Routine 



Ubel 



7. Records are read from DUMPIN and 
CUMIN via GET calls and are written 
in ascending order (compare by key 
if KSDS, and by RBA if ESDS). The 
proper PSTFNCTN is supplied for 
call of buffer handler. 

9. LOGIN file is optional. 

11. LOGINOl to LOGINxx files are 
processed sequentially. 




SETFLOW 
PROCLOGS 
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Figure 2-27 A. Control Statement Processor 



■■ INPUT 



/^ 



£ 



From 

Figure 2-27 
Step 2 



:> 



1 PROCESS • 



1 . Read control statements and 
check for validity. 

2. Create log input specification 
table. 



3. Test for default tape log. 

4. Return to DLZURDBO. 



F OUTPUT! 




To 

Figure 2-17 

Step 3 



Log Input 
■^^ Specification Table 



DLZURCCO - Control Statement Processor CSECT 



Extended Description 


Routine 


Label 


1. Possible card types are: 


DLZURCCO 


GETCARD 


'S' - identifies data set 
to be recovered. 






'LI' — describes log input 
file(s). 






Write the following messages as needed: 






DLZ302I - Column 1 not S 
DLZ304I - DBD name not specified 
DLZ307I - Input filename not specified 
DLZ3 101 - Image of erroneous control 

statement 
DLZ342I - Invalid number of log files 
DLZ372I - Invalid log buffer size 






2. One entry in table describing file type, 
logical unit, and buffer size for each 
log file. 






3. If no log file is specified, issue macro 
DLZDVCE to see if SYS013 assigned 
to tape. 




CLEANUP 



Extended Description 



Routine 



Label 
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Figure 2-28. DB Change Backout 



INPUT 



L 




LOGIN01 to LOGINxx 



FromDL/l — rrqCESS ' 

>1 . Read cc 



1. Read control cards and create log input 
specification table. 



2. Obtain DL/I control block addressability 
via GSCD call. Open log input for read 
backward. 



^3. Read and deblock DL/I log record. Only 
accept records for specified PSB. 

4. Terminate processing if termination '07', 
scheduling '08', or checkpoint '41' record. 

5. Bypass if '50' record and physical replace. 



6. Process all other records for this PSB. 



i> 



OUTPUT- 



Log Input 

Specification 

Table 



Process Log 
Record 



If no error occurred, go to step 3. 



7. Write appropriate completion message. 

8. Return to DL/I to purge buffers and close 
Logout files and DMBs. 



> 



Log Record 



se I 

mi^miJt Return to 



/z? 



SYS LSI SYS LOG 



DLZBACKO - Data Base Backout Utility 
Extended Description 



DL/I DLZBACKO 



1. 'LI' control cards describe one input 
log file each. 






2. Initialize PSTDBPCB, PSTDGU, and 
PSTDGN. 




INIT 


3. At end of file, go to step 7. 




READ 
NXTLREC 


4. 




CHKLOGT 


5. 




CHKDPHYR 


6. The log record is placed in a work area 
(READAREA) whose addresc 
DLZRDBCO obtains via a V-con. 




OK 
CALLBO 


7. The input log file is closed. If another 
log file exists, it is opened and process- 
ing continues with step 2. The message 
texts are found in DLZBACMO csect. 




EOF 
MSGGEN 



Routine Label Extended Description 



Routine Label 
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Figure 2-28.1. Process Log Record (DLZRDBCO) 



m INPUT 



From Fig. 
2-28 step 6 




PROCESS I 



DLZBACKO - Data Base Backout Utility 
Extended Description 



1. initialize dummy DSG and PST fields and 
open DIVIB if not open. 



DLZDLOCO 



Open/Close 

2-14 



^2. Read data base record containing segment 
data to be changed. 



DLZDBHOO 



DB Buffer 
Handler 



3. If simple HISAM, go to Figure 2-28.2 to 
back out log record. 

4. If HISAM or INDEX, go to Figure 2-28.3 
to back out log record. 

5. If HD data base, go to Figure 2-28.4 to 
back out log record. 



6. Log data base change. 



DLZRDBLO 



DB Logger 

2-16 



7. Write data base record. 



DLZDBHOO 



DB Buffer 
Handler 

2-15 



Routine 



Label 



Extended Description 



1. 




INIT 


2. The following calls were made to the 
buffer handler: 




LOCDCB 
CALLBFRH 


A. If HISAM KSDS, issue PSTSTLEQ 
call. 




SETISAMC 


B. If HISAM ESDS, issue PSTBYLCT 
call. 




LOCBLK 


C. If HD ESDS, issue PSTBKLCT 
call. 




SETBLKLT 


6. Output log records contain the 'opposite' 
function to which was on the input log. 




CALLLOG 
LOG 


7. The return code is checked and appro- 
priate action is taken depending on the 
call and return code. 




WRITEBFR 



I 



OUTPUT. 








Dummy DSG 






DSGDMBNO 




DSGINDA 


DSGDCBA 


DSGDCBNO 




PST 






PST DSG A 




PSTACBNM 









> 




Logout 




To Fig. 2-28 
Step 6 



> 




DLZBACKO 



Routine 



Label 



2-234 Licensed Material - Property of IBM 



Figure 2-28.2. Simple HISAIVI Backout (DLZRDBCO) 



INPUT 



Log Record 



From Fig. 
2-28.1 
Step 3 




PROCESS " 



OUTPUT- 



hi 



h^ 



1. No action and key found and log 
record is physical delete or 
key not found and log record is 
physical replace or insert. 



2. If physical delete, get buffer 
space and move old data. 



OB Buffer 
Handler 
2-15 



and set buffer handler function 
to add new key (PSTPUTKY). 



3. If physical insert, set buffer 
handler function to erase key 
(PSTERASE). 



4. If physical replace, replace 
data in buffer with old data. 




DLZBACKO - Simple HISAM Backout Utility 
Extended Description 



Routine 



Label 



1 . The address of the log record is input 
to this routine. 

2. 

3. 

4. 




KEYNOTFD 
CKSHISAM 

KEYNOTFD 

CKSfflSAM 

CALLREP 



Extended Description 



DLZBACKO 

Routine Lal3el 
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Figure 2-28.3. HISAM or INDEX Backout (DLZRDBCO) 



INPUT I 



Log Record 
lold segment 



From Fig. 
2-28.1 . 
Step 4 




PROCESS ' 



> 1. If physical insert for KSDS, 

mark segment in buffer logically 
deleted. 



2. Bypass physical insert for 
ESDS. 



■-OUTPUT- 



Log Record 



fold segment 



Log Record 
I old segment 



"^^ 3. If physical replace, replace 
data in buffer with old data. 



4. If logical delete, reset delete 
code. 



O 



changed 
delete byte 



DLZBACKO - Data Base Backout Utility 
Extended Description 



O 



Buffer Pool 



changed 
segment 



Routine 



Label 



1 . If segment is an INDEX data base 
(primary or secondary), the pointer 
to the index target segment is also 
zeroed. 

2. Chain maintenance log records for 
KSDS effectively back out physical 
insert to ESDS. 

3. 

4. 


•; 


CHKUSERI 
LOGDLET 
SETPHYRP 

CHKUSERI 

CKDICALL 
CHKLGDLT 



--» 



To Fig 2-28.1 
Step 5 



Z> 



changed 
delete byte 
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Figure 2-28.4. HD Backout (DLZRDBCO) 



m INPUT 




PROCESS ' 



1. If chain maintenance record, 
move old chain pointer to 
buffer. Make new log code = 
physical replace. 



r OUTPUT! 



^ 2. If physical delete, make new 
log code = physical insert. 
Obtain this space again and 
update PSEs. 



HD Space 
Management 
2-13 



> 3. For physical replace, replace 
data in buffer with old data. 



-h 



To Fig 2-28.1 
Steps 



> 





Buffer Pool 






updated 
segment 






Output Log 
Record 

















DLZBACKO - Data Base Backout Utility 
Extended Description 



Routine 



Label 



Extended Description 



DLZBACKO 

Routine Label 



1. 

2. 
3. 




CHKCHAIN 

NEXTFSE 
NOTINFS 
LASTCOMP 

NOTINFS 
CHKREPPC 
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Figure 2-29. HS DB Unload 

■■ INPUT II" • ■ • ^ 



r 



SYSIPT 



From DOS/vr P'^O^^S^ ' 
JCL I 

? > 1. Read< 



OUTPUT! 



SEGTAB 




Read control card and validate contents. 

2. Initialize short segment and statistics 
tables. 

3. Determine device type for each output 
file specified. 



> 4. Load DBD and obtain physical character- 
istics of data base as it will be reloaded. 



5. Generate VSAM control blocks and open 
data sets. 



Data Base 



~S 6. Read records in key sequence, remove 
"^ deleted segments, and write newly 

formatted KSDS and ESDS type records 

to output. 



7. Write statistics and close all files. 




DLZURULO - HISAM Reorganization Unload Utility 
Extended Description Routine 



DLZURULO 



Label 



Extended Description 



Routine 



Label 



1 . Read and validate control statement. 
Write the following messages as needed: 

DLZ302I' Column 1 not R 
DLZ303I - Column 2 not 1 or 2 
DLZ304I - DBD name not specified 
DLZ307I - Input filename not specified 
DLZ308I - Output filename not specified 
DLZ309I - Error(s) found in control 

' statement 
DLZ3101 - Image of erroneous control 

• statement 

3. DLZDVCE magro obtains data from PUB. 
Device type may be TAPE or DASD. 

5. Issue GENCB for ACB, RPL, and EXLST. 
Open KSDS and ESDS unless 
ACCESS=SHISAM (KSDS only). 

6. Processing as follows: 

A. Read KSDS records in key sequence, 
bypass if deleted. ESDS records 
containing overflow dependent 
segments are read by RBA. 

B. Format work area like KSDS record 
with new attributes. 







6. (con't) 

C . Move as many segments as will fit into 
KSDS work area, bypassing deleted 
segments. Calculate overflow RBA. 
Write image of KSDS to output. 

D. Format work area like ESDS record 
with new attributes. 

E. Move any dependent segments as will 
fit into ESDS work area, bypassing 
deleted segments. Calculate RBA for 
next record, if required. Write image 
of ESDS to output. 

7. Statistics also written to SYSOl 1 to be 
used for comparative purposes during 
reload. Processing will continue if addi- 
tional input cards. 
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Figure 2-30. HS DB Reload 



m INPUT 



c 




rom DOS/VSir PROCESS < 

> 1.R 



1 . Read control card and validate 
contents. 



2. Determine device type for input 
file. 



^ 3. Initialize statistics table. 



4. Generate VSAM control blocks 
and open data set. 



> 5. Read records from input and 
write to data base. 



6. Print comparative statistics. 



F OUTPUT- 




DLZURRLO - HISAM Reorganization Reload Utility 
Extended Description Routine 



Label 



Extended Description 



DLZURRLO 

Routine Label 



1 . Read and validate control statement. 
Write the following messages as needed: 

DLZ302I - Column 1 not L 

DLZ307I - Input filename not specified 

DLZ309I - Error(s) found in control 

statement 
DLZ310I - Image of erroneous control 

statement 

2. DLZDVCE macro obtains data from 
PUB. Device may be TAPE or DASD. 

3. The first record on the input file 
contains a statistics table initialized 
to zero. Included is the segment code 
and length for all segment types in the 
data base. 

4. Issue GENCB for ACB, RPL, and 
EXLST. Open KSDS and ESDS unless 
ACCESS=SHISAM (KSDS only). 

5. KSDS image records written to KSDS 
as key sequence records. ESDS image 
records written to ESDS as address 
sequence records. 
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Figure 2-31. HD DB Unload (Part 1 of 5) 



INPUT 



JCBSDBND 
JCBORGN 



R1 


GSCDPARM 


Ia(pcb) I 


A(GSCL> 








A(SCDADDR) 



PSTADDR 


PST 


1 IIpstpsb 1 


PDIR 

Ipdiraddr 1 



SDBPHYCD 



From 
Figure 
2-3.4 



1 PROCESS 



1. Obtain DL/I control block 
addressability via GSCD call. 



Linkage to DL/I 



2. Establish addressibility. 



3. OPEN the printer and print 
the statistics report header. 



OPEN Macro 
PUT IViacro 



4. Determine device type for each 
output data set specified. 



DLZDVCE FNAME=RESTART Macro 
DLZDVCE FNAME=HDUNLD1 Macro 
DLZDVCE FNAME = HDUNLD2 Macro 



^ 5. Acquire storage for and 
initialize statistics table. 



GETV IS Macro 



■-OUTPUT- 



SCDADDR 


Caller 
Registers 




A{SCD) 


1 

PCBADDR 

1 


J 
"1 


A(PST) 









TABBUF 
"1> | A (stat) I 



I ^DLZUSTAT 



DLZURGUO- HD Reorganization Unload CSECT 



Extended Description 


Routine 




1 . Module identifier (DLZURGUOvrnp) is 
defined here. 


DLZURGUO 


DLZURGUO 
BEGIN 


The GSCD call returns the SCD address 
+X'60' and the PST address in the call 
parameter I/O area (SCDADDR). 






The PCB address is passed to this 
module in Rl and stored at PCBADDR 
for later use. 






3. 




PUTHEAU 


4. If restarting, set the restart in process 
indicator on at INDA. 




PUBCHKl 


If HDUNLDl is ION or UA, write 
DLZ311I followed by DLZ347I, and 
then terminate. 






If HDUNLD2 is ION or UA, write 
DLZ345I and continue processing. 







xtended Description 



Routine 



Label 



5. Indicate to DL/I Retrieve that HD 
UNLOAD is running by setting the 
indicator (JCBHDULD) at 
JCBINDC. 

Macro DLZUSTAT contains the DSECT 
defining the format of a statistics table 
entry. 

The table contains the segment code 
and length for all segment types in the 
data base. 




^ 
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Figure 2-31. HD DB Unload (Part 2 of 5) 
INPUT ■ I ■■ PROCESS < 



SDB 




ISDBADDR 1 


DMBPRSZ 




DMBBDL 


DDIR 


DMBFLAG 


Iddiraddr 1 


DMBLST 




DMBPLEN 



DMBLENTB 


SEC 


DMBSECTB 


DMBSCDE 




DMBSFLG 




DMBSFD 



DLZCKPT 





6. Acquire storage for a buffer 
to hold the unload record with 
the largest segment. 



GETVIS Macro 



7. Open output data set(s). 



8. If not restarting, go to 
step 13. 



^ 9. Ask operator for checkpoint 
restart number. 



OPEN Macro 

PUT SYS LOG Macro 

GET SYS LOG Macro 



> 10. Copy records including 

checkpoint records to output 
until the checkpoint record to 
start from is found. 



•OUTPUT- 



I A (record) 




DLZURGUO - HD Reorganization Unload CSECT 



Extended Description 


Routine 


Label 


6. Macro DLZURGUF contains the DSECT 
defining the format of an unload record. 




STATEND 


7. 




TESTSECD 


8. 




SETOUT 


9. Open the RESTART file and write 
message DLZ318A to SYSLOG 
requesting restart number and read 
response. 




RESTRTO 


10. Macro DLZCKPT contains the DSECT 
defining the format of a checkpoint 
record. 




RESTRT2A 


Write message DLZ315I if end-of-file 
is reached on the restart data set 
without finding the requested check- 
point record. 







Extended Description 


Routine 


Label 
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Figure 2-31 

■ INPUT — 



HD DB Unload (Part 3 of 5) 



DLZCKPT 



RCKSEGNM 



RECADDR 



GUCALST 


A(GU) 


A (PCB) 


A (RECADDR) 


A (SSA) 



B 



PCB_ 



DBPC8STC 



DLZURGUF RECADDR 
i lOSEG i I 



[PROCESS I 
11. Get 



CALLIST 


A(GN) 


A (PCB) 


A (lOSEG) 




DBPCBSTC 



I JCB 



PST 



:c 



Get ready to position the 
data base to the segment 
identified in the requested 
checkpoint record. 



I- OUTPUT- 



GUCALST 



12. Position the data base (GU call). 



Linkage to PL/ 1 



13. Get ready for unqualified 
GN calls. 



■^ 14. Issue GN for segments and 
■^ check return code. Go to 

step 21 if end of input data. 



ASMTDLI 



Linkage to DL/t 



^ 15. Fill in the remaining fields 
*■ of the unload record. 



A(GU) 



A (PCB) 



A (RECADDR) 



A (SSA) 



CALLIST DLZURGUF 


A(GN) 


RGUHSDF 


A (PCB) 


RGUHDRLN 


A(IOSEG) 









DLZURGUF 



DLZURGUO - HD Reorganization Unload CSECT 

Extended Description Routine 



Label 



1 1 . If the RBN is available in the check- 
point record, the SSA will be 
"segname*T (rbn)" (HDAM or 
HIDAM). 

If the RBN is not available, a qualified 
key call is required. The GETVIS 
macro is used to get a work area to 
build the SSA for the call. The SSA 
will be "segname*C (key)". Following 
the call, the work area is freed. 

12. Write the following messages as 
needed: 

DLZ301I - Open failure 
DLZ348I - Unexpected status 

from return code 
DLZ349I - Input I/O error 
DLZ378I - Restart successful 
DLZ379I - Restart failed 
DLZ380I - Segment not found 




RESTRT4 



Extended Description 


Routine 


Label 


13. lOSEG is the beginning of the variable 
length data field following the DL/I 
prefix information of the unload 
record. 




RECREATE 


14. Write the following messages as 
needed: 






DLZ301I - Open error 
DLZ348I - Unexpected retum 

code 
DLZ349I - I/O error 






15. Write message DLZ400I for a sequence 
error. 




HDRFILL 
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Figure 2-31. HD DB Unload (Part 4 of 5) 
■■ INPUT III 1 *■ PROCESS < 



UE 



DLZURGUF RECADDR 

I 



16. Update statistics table. 



DLZURGUF PCB 



DBPCBMKL 



^ 17. Write the unload record. 

PUT Macro 



DLZCKPT 


RECADDR 




1 1 







^ 18. Build a checkpoint record 
if required. Otherwise, 
return to step 13. 



^ 19. Write a checkpoint record. 

PUT Macro 



20. Return to Step 13. 



21. Update the statistics for the 
last root segment. 



22. Write the last block of 
unload records. 



OUTPUT- 

DLZUSTAT 





DLZUSTAT 



DLZURGUO - HD Reorganization Unload CSECT 

Extended Description Routine 



Label 



16. 




SETDLEN 
UPSTATS 


17. The records are moved to the output 




WRITES 


block. When the biock of records is 






full, the block is written. 






18. Checkpoint riBCords are written at the 




TSTCHK 


first root segment after every 5000 




CHKPNT 


segments. 






19. Write message DLZ381I every time 




CHKPNT2 


a checkpoint is taken. 






21. 




EODINPUT 
LASTROOT 
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Figure 2-31. HD DB Unload (Part 5 of 5) 



m INPUT 



J 



PROCESS ' 



•OUTPUT 



23. Write statistics table record. 



24. Close output files. 



CLOSE Macro 
CLOSE Macro 



TABBUF 


RECADDR 


i II 1 


STATS IZE 


AVRGREC 


1 II 1 



JS 25. Edit and print statistics 

report and volume information. 




26. Free table buffer and segment 
buffer. 



27. Close the printer. 



FREEVIS Macro 
FREEVIS Macro 



CLOSE Macro 



Caller 
Registers 



> 28. Return to DL/I. 




DLZURGUO - HD Reorganization Unload CSECT 

Extended Description Routine 



Label 



23. 

24. 

25. Write message DLZ352I (no errors 
detected). 

26. Write message DLZ392I for 
FREEVIS error. 

27. 

28. 


. 


WRTTLST 

CL0SE2 

EDITSTAT 

STOPRUN 

ST0PRUN2 
NODUMP 



Extended Description 



DLZURGUO 

Routine Label 
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Figure 2-32. 1 


HD DB fteload (Part 1 of 6) 


p_ C\\ ITDI IT 










From 


p.M^^U.OO 




'-"-' •'«-'• 




Figure 1 
2-3.4 1 


caller 1 
PCBADDR registers | 


1 


GSCDPARM 




R1 




1 


A(GSCD) 




A(PCB) 1 


II 






~ 


■ ]> 1. Obtain DL/I control block 


^\\ SCDADDR 








addressability via GSCD call and 
initialize. 

2. Open the printer. 

^■■1^ OPEN Macro 

3. Determine device type for input 
file and open it. 

^■■^ DLZDVCE Macro 
4llHIP OPEN Macro 

r 4- RpaH first rpcord and chpck for 




A(SCD) 




A(SCDADDR) 


A(PST) 












(T 








1 _^ 




' 




I/O Buffer 






a statistics table. -—■» 


i ^ 


- 


HDUNLD2 




^■■^ GET Macro 

^ 5. If not restarting, go to step 




^ 


Stat record 

1 
















SCDADDR 


SCD 


INDA 




1 


1 SCDSIND2 1 


20. 


1* 




' ' 1 


? 6. Get checkpoint restart number 










1 


I 










1 




r"~~^^tr^^-^ 






RSTSAVE 




from operator. 




registers 


1 




^■■^ PUT Macro 
^■■^ GET Macro 


r 




1 nr? RF^p 






] 


SYSLOG 1 

























DLZURGLO - HD DB Reload 



Extended Description 


Routine 


Label 


1. Module identifier (DLZURGLOvrnp) is 
defined here. 


DLZURGLO 


DLZURGLO 
BEGIN 


TliePCB address is passed to this 
module in Rl by DLZRRCOO and 
stored at PCBADDR for later use. 






The GSCD call returns to the SCD 
address + X'60' and the PST address 
in the call parameter I/O area 
(SCDADDR). 






3. Write DLZ31 11 if HDUNLDl is not 
assigned. 




PUBCHKA 


4. Issue DLZ389I if abnormal 
statistic table record. 




STATINIT 


5. If the HD DB Reload UtiHty Program 
fails, the reload restart capability 
allows you to restart from a check- 
point record. Before submitting the 
job for a reload restart, change the 
parameter card from ULU to ULR. 







Extended Description 



Routine 



Label 



6. Write DLZ318A message to SYSLOG 
requesting restart number and read 
response. 

The number of the last vaUd check- 
point record on the unloaded file 
is found in console message DLZ381I. 
Valid checkpoint numbers are decimal 
values between 1 and 9999. 

• 




RSTMESSG 
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Figure 2-32. HD DB Reload (Part 2 of 6) 
m INPUT III . I m PROCESS < 




RCKSEGNM 


1 1 


RCHKEYLN 




RCKEYVAL 





> 7. Locate requested checkpoint 
record. 



GUCALST 


A{GU) 


A (PCB) 


A(WRKIAREA) 


A (SSA) 



DATA BASE 



GNLIST 



A<GN) 



A (PCB) 



A (WRK1AREA) 



DATA BASE 



8. Get ready to position the data 
base to the segment identified 
in the requested checkpoint 
record. 



9. Position data base (GU call). 



CALL Macro 



■-OUTPUT- 



ASMTDLI 



Linkage to DL/I 



PCB 



> 10. Find end of data (GN call). 



►GUCALST 



A(GU) 



A (PCB) 



A (WRK1AREA) 



A (SSA) 



ASMTDLI 



Linkage to DL/I 



11. If the return code indicates 
end of data, go to step 16. 



> R9 



DLZURGLO- HD QB Reload 



Extended Description 


Routine 


Label 


7. Write DLZ370I if the checkpoint 
requested is less than the first check- 
point record encountered. 




RSTGETLP 


Write DLZ315I if checkpoint record 
not found. 






Write DLZ38 1 1 checkpoint informa- 
tion message 






8. The SSA for the GU caU is *segname*C 
(key)*, a qualified key call. 




RSTPOSIT 


9. The retum code is checked. 




CALLIT 


Write DLZ380I unable to position 
DB, checkpoint record not found. 







Extended Description 



DLZURGLO 

Routine 



Label 



10. Now that the data base is positioned 
at the segment identified by the check- 
point record, issue GN calls to the end 
of the data base at the same time 
reading corresponding records from 
the unloaded data base in order to 
keep the two synchronized. 

A counter for GN calls (R9) is 
incremented by one for every GN 
call following a root segment. 

Write DLZ380I unable to position 
DB if invalid retum code. 




GNCALL 



^ 
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Figure 2-32. 

I INPUT *■« 



HD DB Reload (Part 3 of 6) 

f- PROCESS ' 



GUCALST 



PCB 

I dbpcbkfdIJa(ssa) 



C 



DBPCBKFD 




12. If the segment returned is not 
a root segment, skip to step 14. 



13. Put the new root segment key in 
the parameter list of the GU 
call and return to step 10. 



DLZURGUF DLZCKPT 
RGUSEGLvl I RCHKNAME I 



Qt^gAL^T 



A(GU) 



A (WRK1AREA) 



A (SSA) 




^ 14. Read corresponding record from 
unloaded data base. 



GET Macro 



15. Return to step 10 to get the 
next segment. 



> 16. Position data base to last root 
segment (GU call). 



CALL Macro 



ASMTDLI 



Linkage to DL/I 



1 OUTPUT! 



,A (SSA) 



DLZURGLO - HD DB Reload 
Extended Description 



12. 

13. Reset the counter for GN calls (R9) 
to zero. 

14. 

15. If the record returned from the 
unloaded data base is a checkpoint 
record, return to step 14 to get the 
next record in order to keep the 
partially reloaded data base and 
the input unloaded data base 
synchronized. 

Issue DLZ381I checkpoint informa- 
tion message. 

16. 




CHKKEY 
UNLDGET 

REPOSN 



Routine Label Extended Description 
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Figure 2-32. 

. INPUT — 



HD DB Reload (Part 4 of 6) 



GNLIST 



A (GN) 



A (PCB) 



A (WRK1AREA) 




DATA BASE 



I PROCESS I 



A (SCD) 



DSEHADDS K" ^ 



I J 



17. Position data base to the last 
segment (GN calls). 



CALL Macro 



ASMTDLI 



Linkage to DL/I 



PSTADDR 


RSTSAVE 
registers | 

PST 


f A (PST) 1 


PCBADDR 


I A (PCB) 1 


PSTPCT1 1 
SDB 


PCB 


1 DBPCBJCB 1 


SDBPHYCD 




SDBLEN 



JCBSDBND 



^ 18. If a work file is present, 

copy partially created work 
file into new. 



OPEN RSTFILE Macro 



DLZDSEHO 
Work file 
generator 



GET Macro 
PUT Macro 
CLOSE Macro 



> 19. Reset processing options. 



r SEGSAVE 




^ r^ 




j> \ ) ■ 


WORKFIL 




^ PCB 




[dbpcbpro 1 


JCB 


|jcbstor3 1 


SDB 
|SDBF3 1 









DLZURGLO - HD DB Reload 
Extended Description 



Routine 



Label 



17. Save the segment code of the last 
segment. The number of GN calls 
to make to get to the last segment 
is in R9. 

18. If a work file (for logical relationships 
or secondary indices) was being 
created during the reload, the 
partially created work file should be 
submitted as input to the restarted 
job assigned as SYSOIO with a file 
name of RSTFILE. 

Write DLZ376I invalid device 
assignment. 

19. Now that Reload Restart processing 
is complete, set the processing 
options to indicate that a load is in 
process. Then resume processing as 
usual. 

If HISAM, set LS in the PCB. 
Otherwise, set L. 




GNLOOP 

setwkfil 
rstopen 

setpropt 



Extended Description 



DLZURGLO 
Routine 



Label 



Save the address of the SDB for 
insert processing if it is for the last 
segment found in JCBST0R3. 
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Figure 2-32. HD DB Reload (Part 5 of 6) 

■ INPUT ■^■MiiM»H-a_i^ ^ PROCESS < 




DLZURGUF 



^ 20. Read an unload record. If 
end of file, go to step 21. 



I OUTPUT- 



GET Macro 



CALLIST 


A (ASRT) 


A (PCB) 


A (lOAREA) 


A (SSA) 



> 21. Build SSA for segment. 



DLZUSTAT DLZURGUF 



> 22. Load segment (ASRT CALL). 

CALL Macro 



ASMTDLl 



Linkage to DL/I 



EH 



23. Add the segment totals and 
return to step 20. 



^ 24. Print comparative statistics 
report if the record is the 
last statistics record. 



25. Close the input file 



CLOSE Macro 



CALLIST 


A (ASRT) 


A (PCB) 


A (lOAREA) 


A (SSA) 




DATA BASE 



SYSLST 



DLZURGLO - HD DB Reload 



Extended Description 


Routine 


Label 


20. 




GETLOOP 


21. 10 AREA is the address of the data 
portion of the unload record 
DLZURGUF. 




NOSTAT 


22. Write DLZ301I OPEN error. 






Write DLZ319I 10 error. 






Write DLZ348I invalid return code. 






23. 




STATCOMP 


24. 




LASTCOMP 


25. Write DLZ355I if reload is not okay, 
or DLZ379I if checkpoint restart 
is not okay. 




EOD 
GOODRUN 


Write DLZ354I if reload is okay, or 
DLZ378I if checkpoint restart is okay. 






If this was RESTART (ULR), reset 
the processing option in the PCB 
back to A. 
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Figure 2-32. HD DB Reload (Part 6 of 6) 



m INPUT 



Cairer 
registers 



DLZURGLO- HD DB Reload 



o 



I PROCESS I 



26. Close the printer. 



CLOSE Macro 



27. Return to DL/I. 



Figure 
2-3.4 



■OUTPUT- 



Extended Description 



Routine Label 



26. 

27. 




STOPRUN 
NODUMP 



Extended Description 



Routine Label 
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Figure 2-33. ACB Creation Utility Overview (Part 1 of 3) 






^. r\\ ITDi IT. 










From 1 










^ 


ll 


SCD PPST 


R7 


Partition 


|SCD 1 

R9 
|PST 1 


DLZUACBOvrnp 
5746-XX1 . . . 


1 SCDPPSTS 1 1 PPSTIND | 


e^ 1 

CIL 








> 1. Load batch nucleus and establish 


1 




SCD and PST addressability. 


^ 




1^ 
IN 




4lHIP GETIME and 
1 f COMRG Macros 

ABH^ open Macro 


PST 






|PSTSCDAD 1 












2. Acquire and initialize the 
psbname list control block. 

MUM CALL Macro 




( 


R1 






IX 

1^ 


A (List) 1 
^List 








entry length 




DLZUSCHO 




offset to 
compare field 


OPENSRCH entry 
point 

2-33.1 




f ' 


length of 
compare field 




/ 1 


\ 




^ 3. Read build cards until EOF. 










} 




^■■P GET Macro 


^p<;t 




Build Cards 




4. Syntax check the build cards. 




BLDLCBAD 






K 








Ipstcodei I 








^ 5. Add valid psbnames to the list 
control block. 


_J 


R1 
Ja (List) 1 




1 A (list Ctrl block) | 


- 


<-4 

BALR 






K 


DLZUSCHO 




INSRCH entry 
point 2-33.1 
step 4 


c 


^Llst 




A (list Ctrl bik) 








A (psbname) 


1 
















^J 





DLZUACBO - Create ACB Utility Csect 



DLZUACBO 



Extended Description 


Routine 


Label 


1. Module identifier (DLZUACBOvrnp) is 
defined here. The level format is vmp; 
where V is the version, *r* is the 
release, *n* is an additional identifica- 
tion number, and *p' is the latest 
PTF number that has been applied. 


DLZUACBO 


DLZUACBO 


The time and date are required for the 
report heading to DLZUACBO 
messages and control statements that 
are printed as this utility executes. 






2. The parameter list for OPENSRCH 
is passed m Rl . 




INITSORT 


OPENSRCH returns the address of the 
Ust control block in Rl, which is then 
put in the parameter list for INSRCH. 






Write DLZ905I if GETVIS error 
returned from OPENSRCH. 






3. 




E^ADCARD 
:}ETT 



Extended Description 


Routine 


Label 


4. Write DLZ588I for an invalid 
delimeter , label , opcode , block 
type, operand, continuation, or 
invalid format. The output device 
is set at this time (SYSLINK or 
SYSPCH). 






If OUT=LINK was specified in the 
build card, SYSLNK is indicated in 
the PST. 






5. The psbnames from the PSB= 
operand are passed one at a time 
to INSRCH. 




MOVEIT 


The parameter list for INSRCH is 
passed in Rl. 






Write DLZ905I if GETVIS error 
retumed from INSRCH or DLZ571I 
warning message if a duplicate 
psbname is found. 
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Figure 2-33. 

^ IMP' '"^ —— — 


ACB Creation Utility Overview (Part 2 of 3) 






l_ Y^l IXDl IT — 




PST 
1 PSTC0DE1 






> 6. Check that SYSPCH or SYSLNK is 
assigned and open the device. 






3 

R1 
IJPST 1 




BLDLCBAD 









> 7. Set up to cycle the psbname 


> — 


1 A (List Ctrl bik) 1 




build list entries, getting 


1 




1 PSTPSB 


PST SCD 


psbnames to give to the Block 
Builder. 


1 PSTSCDAD 1 ISCDDLIPS | 


SCHCTLBK 


1 


1 SCHFGRP 






> 8. Move a psbname from a build list 
entry to the PDIR and go to 




SCHGROUP 


BLDDLTEN -, 






SCHGRPCT 


|entrynm 


N 






[PDIRSYM 


SCHENTRS 




















BALR 


DLZDLBLO 




Block Builder 
Routine 

2-33.2 














%■ -..r-.. 


^ 9. Write completion message. | 


lENTF 


3\/MK/l 1 












BALR 


DLZLBLMO 




Message Writer 
2-33.15 


PST 
1 PSTPSB 


SCHGROUP "" 
IsCHNGRP 1 


► 10. Return to step 8 f 
build list entry un1 
are no more psbna 


or next 
til there 
mes. 





DLZUACBO '- Create ACB Utility Csect 



Extended Description 


Routine 


Label 


6. 




CARDEOF 
OP^ 


8. PSTERCOD is examined to see if any 




BLDGROUP 


errors were posted by the Block 




CALLBB 


Builder. If not zero, issue message 






DLZ587I to indicate the PSB will not 






be built and go to step 10 to attempt 






to build remaining blocks. 






9. The completion message is normal 






unless a non-zero return code 






is found from DLZDLBLO. 






Write DLZ589I to indicate processing 






has been completed for the PSB 






specified. 






10. 




NXTPSB 
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Figure 2-33. ACB Creation Utility Overview (Part 3 of 3) 

■■INPUT I • • I ■ ! p> PROCESS • 



SCHGROUP 
I SCHNGRP 1 



PST 

Ipstcodei 



• "^ 10. Return to step 8 for each build 
list entry until there are no 
more psbnames. 

11. Free the psbname list control 
block. 



CAUI. |V99r9 



— — • > 12. Close files and exit. 



-OUTPUT- 



DLZUSCHO 



CLOSESCH entry 

point 

2-33.1 
step 8 



CLOSE Macro 



>[ 



-Rl. 




A (List control bik) 



DLZUACBO - Create ACB Utility Csect 
Extended Description 



Routine 



Label 



10. 

11. 

12. 




NXTPSB 

BLDDONE 

CLOSE 



Extended Description 
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Figure 2-33.1. Binary Searcii Insert Routine (Part 1 of 2) 

wm INPUT M il I ■■ PROCESS ■— — i 



SAVEBL 



EEy 



entry length 



offset to 
compare field 



length of 
compare field 



ENTBLK 
I ENTBLKBL | 



From 
Fig. 2-33 
Step 2 



OPENSRCH Entry Point 

1. Acquire storage for the list 
control block, including one 
group control block. 



■-OUTPUT- 



GETVIS Macro 



SAVE 
I HSA I 



Caller 
Registers 



^ 2. Initialize the list and group 
control blocks. 



:> 



Caller 
Registers 



SAVE 



A (list) 



A (SAVE) 



A (psbname) 



ENTLNGTH 



COMPLOC 



COMPLNG 



NUMENT 



CHAIN LOC 



CHAIN 



From 

Figure 2-33 
Step 5 



3. Return to caller. 



y». 



INSRCH Entry Point 

. If the psbname already has a 
build list, set R15~8, then 
go to step 7. 



Figure 2-33 
Step 2 



:> 



HSA 



ENTLNGTH 



COMPLOC 



ENTBLKSZ 



ENCNTS 



][ 



SAVE I I Return Code 



DLZUSCHO — ACB Maintenance Binary Search Insert Routine 

Extended Description Routine Label 



1. Module identifier is defined here. 
Length acquired is X*80' bytes. One 
group control block will hold 16 build 
list entries. 

2. Block now contains information 
needed to build a group control 
block. The first (or only) block is 
obtained before the first actual insert. 

3. The address of the created block is 
returned to the caller. 

Note: This routine is very generalized 
and could be used for other purposes, 
but it is only used by DLZUACBO to 
build the psbname build list control 
block. 

4. Routine identifier (INSRCH. .) is 
defined here. 



DLZUSCHO 



INSRCH 



DLZUSCHO 
OPENSRCH 



INSRCH 
INSRTl 
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Figure 2-33.1. Binary Search Insert Routine (Part 2 of 2) 
INPUT ■ *■ PROCESS 



ENTBLK SAVE 
I ENCNT IIeNTBL 



> 5 



SAVE 



Caller 
Registers 



I A (list Ctrl bik) 



Figure 2-33 
Step 1 1 



Caller 
Registers 



. If no room for new build list 
entry, issue GETVIS for a new 
group control block, chaining it 
to any previous blocks. 



GETVIS Macro 



6. Insert new entry in collating 
sequence. 



7. Return to caller with return 
code in R15. 



CLOSESCH Entry Point 



> 8. Free all group control blocks 
and then the list control block. 



FREEVIS Macro 
FREEVIS Macro 



P INTBLK 



•OUTPUT- 



Figure 2-33 
Step 5 



S 9. Return to caller. 



Figure 2-33 
Step 1 1 



> 



Group 



SAVE 
jCHBACK I 



ENTBLK 


Group 
Control BIk 




1 ENCNT 1 




SAVE 






Inument 1 











I A (entry) j | return code I 



Caller 
Registers 



Extended Description 


Routine 


Label 


5. There is enough room for 16 entries 


INSRCH 


NOTFND 


in a group control block. 






6. 




MVDK 


7. 




NOGO 


8. Routine identifier (CLOSESCH) is 


CLOSESCH 


CLOSESCH 


defined here. All group control blocks 






can be found beginning from the list 






control block. 







Extended Description 



Routine 



Label 
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Figure 2-33.2. Block Builder Routine 1 



m INPUT I 



r PROCESS « 

From Figure I 
2-33 Step 8 I 

■ L 

^■■P 1. Acquii 
r load, c 



1. Acquire storage for PSB specified, 
load, and convert it. 



|psbdbr^f"~| - 



LOADPSB 



2. Build temporary DDIR entries for all 
data bases directly identified in the PSB. 



3. Calculate and acquire storage needed 
for SDBs, etc. 



4. Point to first PCB to be built. 



> 5. Initialize PCB. 



6. Build SDBs for PCB. 



7. Loop to step 5 through all PCBs for PSB. 



DLZDLBLO - Block Builder Routine 1 



I 



OUTPUT. 



DDIR Temp 



DTABDMB 




Extended Description 


Routine 


Label 


1. 

5. 

6. Only those SDBs for segments directly 
referenced by SENFLDs are built at this 
time. Generated SDBs will be built in 
DLZDLBLl. 




PSBPASS 

PSBPASSl 
BLDPCB 

PSBPASS3 



Extended Description 


Routine 


Label 
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Figure 2-33.3. Block Builder Routine 2 

m INPUT III I r" PROCESS i 









FLDTAB 

1 




LCHILD 






SORTAB 

1 




NDEXTAB 




1 



COMPRESSION CSECT 




L 



SORTAB 



EXTDBD SEC 



1. Get first temporary DDIR address. 



2. If DMB already built for DDIR entry, go 
to step 5. 



3. Load the DBD. 



> 4. Build the DMB. 



> 5. If any unprocessed SDBs exist for this 
DDIR entry, process them. 



6. If any DDIRs remain to be processed, get 
next and go to step 2. 



To Figure 
2-33.6 



^OUTPUT- 



DTABDMB 



XJ 



DMB 




PSDB 










SEC 










COMPRESSION CSECT 

1 




= DB 










ACB 










DTP 

















^ 



DLZDLBL1 - Block Builder Routine 2 



Extended Description 


Routine 


Label 


2. The DBD address is reset from the DMB 
Name Table. 




DMBPASSl 


3. Any DBDs referenced by this DBD are 
added to the dummy DDIR list. 




DMBPASS2 


4. A. If the DBD is for an index data base, 
the DDIR entry for the target data 
base is located and processed first. 




DMBPASS3 


B. No DMB is built for logical DBDs. 






5. A. SDBs pointing to VLC or logical 
segments are reset to point to the 
physical segment PSDB. 




DMBPASS8 


B. All generated SDBs are built here. 






6. If additional SDBs were chained to a 
prior DDIR during step 5, return to that 
DDIR, and go to step 2. 




DMBPASS9 



Extended Description 



Routine 



Label 
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Figure 2-33.4. Block Builder BLDDMB Routirie 



INPUT 



PREFIX SEGTAB 









FLDTAB 




EXTDBD 









PREFIX SEGTAB 



1 1 


FLDTAB 


LCHILD 







SORTAB INDEXTAB 



COMPRESSION CSECT 



DDIR 




= DB 








SEGTAB 


{ 


5CKL 









FLDTAB PSDB 





. 




SEC 


NDEXTAB 









|» PROCESS I 

From Caller I 

3 

> 1. Get an 



DLZDLBL1 - Block Builder Routine 2 



Extended Description 



1. Get and initialize storage for DMB. 



.OUTPUT! 



_> 2. Build PSDBs, FDBs, Secondary Lists, and 
~^ Compression CSECTs for each segment. 



> 3. Process enqueued Secondary Lists; build 
segment concatenated key table; and 
initialize subsequence source, or search 
secondary lists. 



DMB 




PSDB 








FDB 




DDIR 









COMPRESSION CSECT 



> 4. Move in DTF{s) or ACB. 



-^ 



I Return to 
I Caller 



DLZDLBL1 



Routine 



Label 



Extended Description 



Routine 



Label 



1. 

2. Until the concatenated key table is built, 
all secondary lists are enqueued on the 
DDIR and will be built during step 3. 

3. 




BLDDMB 
BLDDMB 1 

BLDDMB4 
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Figure 2-33.5. Block Builder BLDSDB Routine (Part 1 of 2) 



INPUT 



SORTAB DDIR 



SEGTAB SDB 



PSDB 



1. If no more SDBs, return to caller, 
y 2. Find matching physical segment table 



J) 3. If segment has source, repoint SDB to 
. new PSDB. Go to step 1. 



I PROCESS ' 



r" OUTPUT 



entry. 



4. If segment is a logical child, build 
generated SDB chain. 



LCSDB 



5. If SDB is a generated SDB for a logical 
parent or the target of an alternate 
sequence index, and no generated parent 
chain exists, build one. 



6. Set ACB number, physical segment 
code, key field length, PSDB address, 
and next SDB to PSDB address. 




DLZDLBL1 - Block Builder Routine 2 



Extended Description 


Routine 


L^bel 


2 . Output message DLZ9 1 21 if not 
found. 




BLDSDB 1 


3. If source is in another DBD, the SDB 
to be processed is the next one for 
this DBD. Otherwise, process the 
original with the new segment name. 




BLDSDB3 


4. If segment is a normal logical child, 
the logical parent SDB is generated 
and flagged to cause generation of 
the parent chain when the LP is 
processed. All generated SDBs are 
chained to the DDIRs for the related 
data bases. 




BLDSDB7 


5. 




BLDSDB8 


6. 




BLDSDB9 



Extended Description 



Routine Label 
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Figure 2-33.5. Block Builder BLDSDB Routine (Part 2 of 2) 



INPUT 



[^ 



__) 8. Generate SDB for Index 



rV 






— ^ 



'PROCESS II . . .. • . . 

7. If SDB is not the root for an alternate 
sequence, go to step 1 1 . 



GENSDB 



9. Generate SDB for target of Index and 
flag to indicate parent chain is to be 
generated. 



10. Go to step 1 and process SDB generated 
in step 9. 



1 1 . If SDB is not for H I DAM root, go to 
step 13. 



12. Generate SDB for primary index. 



13. Point to next SDB for DDIR, and go 
to step 1 . 



I- OUTPUT! 






R6 



DLZDLBL1 - Block Builder Routine 2 



Extended Description 



Routine 



Label 



Extended Description 



Routine Label 



7. 
11. 
13. 




BLDSDBF 
BLDSDBG 
BLDSDBI 
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Figure 2-33.6. Block Builder Routine 3 (Part 1 of 2) 



m INPUT 




PROCESS I 



1. Calculate size of Intent List and 
obtain space. 



2. Process PCB. 



3. Process SDBs for PCB. 



BLDSDB 



4. Check for valid hierarchical structure. 



S 5. Relocate pointers in PERT tables. 



> 6. Get space and move PCB. 



P OUTPUT! 



SDBXP 



DLZDLBL2 - Block Builder Routine 3 



DLZDLBL2 



Extended Description 


Routine 


Label 


1. 

2. 

3. The SDB expansion and FSBs for any 
field level sensitivity are built here. The 
parentage flags in the SDB are set, the 
Intent List entry is built, and any 
propagation is done. The index SDB, if 
any, is initialized. 

6. Space is allocated for the PCB, JCB, key 
feedback area, DSG, and Level Table. 




GTILIST 
BLDPCB 
BLDPCB4 

BLDPCB5 



Extended Description 


Routine 


Label 
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Figure 2-33.6. Block Builder Routine 3 (Part 2 of 2) 

■ PROCESS" 



. 




SDB 




DSG 


i 




1- 






FDB 




PSDB 


1 




1 


SEC 

















> 8. Build DSGs and set key feedback pointers. 



■-OUTPUT 



7. Build Level Tables. 



9. Calculate maximum path length for PCB. 



CMAXPL 



10. If more PCBs, address next and go to 
step 2. 




DLZDLBL2 - Block Builder Routine 3 



Extended Description 



Routine Label 



Extended Description 



Routine 



Label 
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Figure 2-33.7. Block Builder BLDSDB Routine 



f> INPUT 



I I 



PSDB 



SDB 




DMB 








PSDB 




DDIR 









DLZDLBL2 - Block Builder Routine 3 



^ 



I PROCESS ' 



1. If segment is field sensitive, build SDB 
expansion and FSBs. 



2. Set SDB parentage flags. 



3. Calculate maximums for save area 
sizes. 



4. Build intent list entry. 



2-33.10 



5. Fill in any generated index SDB. 



6. If any target SDBs, get first and go to 
step 1. 



A 



Return to 
Caller 



OUTPUT- 



SDBXP 








FSB 













SDB 




DDIR 















Extended Description 


Routine 


Label 


1. 




BLDSDB2 


2. 




BLDSDB3 


3. Maximums set are: 

a. Maximum segment length in 
either physical or user's view. 

b. Maximum concatenated key 
length. 

c. Maximum concatenated segment 
length. 

d. Longest segment at this level and 
path sensitive. 






4. a. Output message DLZ909I if 
PROCOPT changed, 
b. All intent propagation is done 
here. 




INTENTL 


5. Fill in the generated index SDB for 
HIDAM primary indexes or alternate 




BLDSDB4 


sequence. 







Extended Description 


Routine 


Label 
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Figure 2-33.8. Block Builder Routine 4 (Part 1 of 2) 
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2-33.6 
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K 


PSDB 




FOB 
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SEC 


















PSDB ~ ■ 




LJUIM 
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V 


SEC 

















I PROCESS ' 



1. Build index maintenance PCB if required. 



2. Calculate sizes of work areas. 



3. Set SDB Expansion for alternate 
sequence. 




4. Validate VLC LT sequence field 
location. 



5. Process and output DMBs. 



6. Process and output PSB. 



7. Free PSB storage. 



OUTPUT! 



PCB 




JCB 








PSB 




LEV 








SDB 




DSG 


1 














DLZDLBL3 - Block Builder Routine 4 



Extended Description 


Routine 


Label 


1. 




BLDEND 


2. Index work area, Index I/O area, 




CALWAS 


segment compression work area, and 






I/O work area 






5. 




DDIR2SC2 


6. 




PSBMOV 


7. 




FREEPSB 



Extended Description 


Routine 


Label 
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Figure 2-33.8. Block Builder Routine 4 (Part 2 of 2) 

INPUT — — ■ I ■■ PROCESS ■ 



-^ 



8. Search DMBNAME table for DMB that 
needs a utility PSB. Go to Step 1 1 if 
none. 



9. Build utility PSB. 



2-33.14 



10. Go to PSBPASS in module DLZDLBLO 
(Step 1., Figure 2-33.2) to process utility 
PSB just built. 



11. Free DBD storage. 



12. Return. 



To Figure 
2-33 Step 9 



F OUTPUT- 



DLZDLBL3 - Block Builder Routine 4 



Extended Description 


Routine 


Label 


8. Utility PSB is built for every HISAM, 




UTILPSB 


HID AM, HDAM, and secondary 






index DMB just outputted. 






9. The dmbname is moved to the 






psbname location and a suffix 'u' 






added. The no utility PSB required 






indicator is turned on at DTABFLAG 






so we don't try to build another 






utility PSB for this DBD the next 






time around. Return to Step 9 to 






build the PSB. The output of 






DLZDPSBO is like PSBGEN output. 






11. 




FREEDBD 


12. PSTERLOD = if OK and non-zero 




RETURN 


if not. 







Extended Description 


Routine 


Label 
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Figure 2-33.9. Acquire Storage Routine 



INPUT I 



Length 



::> 



I PROCESS I 



1. Acquire storage. 



■-OUTPUT- 



GETV IS Macro 



2. Chain storage acquired. 



3. Return to caller. 



c 



Storage 



DC 



DLZDLBLO - Batch Control Block Builder CSECT 



Extende^Description 



Routine 



1 . Write message DLZ905I if GETVIS 
space is not available. 

2. If this is a storage request for a DBD, 
the storage is chained off at 
ADDRDBD rather than ADDRC. 



GETSTOR 
GETSTORl 



Label 



Extended Description 



DLZUACBO 

Routine 



Label 
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I Figure 2-33.10. Intent Propagation Routine (Part 1 of 2) 

-tINPUT — ■— — I i" PROCESS 



R6 


SVBF3 




SDB 


1 




SDB 






SDBF3 




SDBDDIR 


SDBPSDB 


SDBTARG 






J 



PSDB SEC 


DMBFLAG 




DMBSCDE 


DMBLST 




DMBSECND 









._^ 



From 
Figure 
2-33.7 
Step 4 



L 



■-OUTPUT! 



1. Set read only or exclusive 
intent for entry SDB. 



Build PSIL 
Routine 
2-33.11 



2. Set update intent for entry SDB 
and its target if either is 
replace sensitive. 



Build PSIL 
Routine 
2-33.11 



. 3. Check for necessary intent 
propagation. Skip to Step 7 
if entry SDB is not ISRT/DLET 
sensitive. 



4. If ISRT sensitive, skip to 
Step 6. 



::> 



Caller 
SVBF3 Registers 



DLZDLBAO - Intent Propagation CSECT 



Extended Description 


Routine 


Label 


1 . This routine propagates intent to all 
PSDBs related or dependent on the 
PSDB for the entry SDB. Only SDBs 
that are built directly from SENSEG 
statements in the associated PSB are 
passed to this routine. 




INTPROP 


For a process option (PROCOPT) of 
G, the entry SDB and all targets are 
set to exclusive. For E PROCOPT, 
the entry SDB and its immediate 
target are checked for key sensitivity. 
If the SDB is data sensitive, the intent 
is set to exclusive. Otherwise, no 






intent is set. 






2. 




SETREPL 


3. 




PROPTYPE 


4. 




UPTYPE 



Extended Description 



DLZUACBO 

Routine 



Label 
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I Figure 2-33.10. Intent Propagation Routine (Part 2 of 2) 



Pi INPUT I 



SEC 



LIMITAB 



Caller 
Registers 



a 



T 



L_ 



:> 



1 PROCESS ' 



5. Process the entry PSDB and ail 
necessary related and dependent 
PSDBs for D PROCOPT. 



L4 



OUTPUT- 



Build PSIL 
Routine 
2-33.11 



6. Process the entry PSDB and all 
necessary related and dependent 
PSDBs for I PROCOPT. 



Build PSIL 
Routine 
2-33.11 



7. Return to caller. 



^- 1 

^■■A FREEVIS Macro I 

To ^ 
Figure 
2-33.7 
Step 4 



> R15 



DLZDLBAO - Intent Propagation CSECT 
Extended Description 



Routine 



Label 



5. Any intent set will be update type. 
Storage is acquired for a limit table 
and is constructed with PSDB 
addresses. These addresses show 
children of the entry PSDB, any 
necessary higher related PSDBs, any 
index relationships, any logical 
children, the logical parent, physical 
parent, and physical pair of the entry 
PSDB. After the table is constructed, 
each entry is passed to SETNT to set 
update intent and the table area is 
freed. Exclusive intent is propagated 
along with delete. 

6. Any intent set will be update type. 
A limit table is constructed with 
addresses of those PSDBs that will 
be passed to SETNT. 

It is also determined if the entry SDB 
can insert its logical parent or physical 
parent as a result of a concatenated 
segment definition. If it can, the 
logical parent or physical parent is 
processed in the same manner as the 
entry PSDB. The physical pair is also 
processed if one exists. 




DLETPA 

UPISRT 
UPCHKPP 



Extended Description 



DLZUACBO 

Routine 



Label 



After processing the LIMITAB 
entries built, the area is freed. 

7. Set the return code and make sure 
all the limit tables are freed. 




INTRETO 



^ 
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I Figure 2-33.11. Build PSIL Routine 

INPUT III! 



DDIR 




PSDB 


DDIRRESV 




DMBSC 


ENQLSTA 











"] I SDBPHYClT] 



II I 



jm PROCESS I 

From I 

Figure I 

2-33.10 I 



DLZDLBAO - Build PSIL CSECT 

Extended Description 



1. Calculate the address of the 
beginning of the segment 
descriptor bits in the intent 
list area for this PSDB. 



2. Set the requested sensitivity 
for this PSDB. 



3. Return to caller. 



pi OUTPUT- 



Routine Label 



1. 

2. 


DLZDLBAO 


SETNT 
ENQl 



^ Intent List 
"^ ' 



To 

Figure 

2-33.10 



Caller 
Registers 



a 



Extended Description 



DLZUACBO 

Routine 



Label 
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I Figure 2-33.12. Write DMBs (Part 1 of 2) 





From 
Figure 
2-33.8 
Steps 

1 


^ 


DDIR DMB 




DDIRADDR 


DMBSiZE 




DMBNREF 








DDIR DMB 




|ddiraddr||| 


DMBLENTB 




DMBSECTB 




PSDB 




DMBVLDFG 




r '^ 


COMPRES- 
SION 
CSECTs 






SEC 


DMBSCDE 




DMBXITAD 


XMT 
CSECTs 










SEC DDIR 




> 


DMBSCDE 


ddirdmbn] 









DMBSECDB 










PSDB 






dmbpsdbnI" 


DDIR DMB 




Iddiraddr 


PREFIX 




ACBEXT 


> 


PSDBs 




- 


•> 


FDBs 


SEC LIST 








DMB 






1 DMBORG 







DLZUAMBO - Block Mover CSECT 



1. Acquire storage for DMB and 
external reference tables. 








DMB 


SEC 




DMBDALGR 


DMBXITAD 1 




PSDB 


DMB 


2. Convert addresses which ]> 


reference locations within DMB 
to offsets from DMB start. 




DMBFDBA 




DMBSCTAB 


COMP 
CSECTs 




DMBLST 






XMT 
CSECTs 








1 






SEC 


3. Change DDIR addresses in the > 


DMB 

Reference 

List 


DMBSECDB 


secondary lists to relative DMB 




numbers as to where the DMB 
entry is in the DMB reference 
list. 

4. Return to Step 2 to process the 
next PSDB if there is one. 










DMB 


DMB 




PREFIX 


DMBNREF 


5. Move old DMB to new DMB. 




ACBEXT 








PSDBs 




FDBs 




SEC LIST 




COMP 
CSECTs 


6. If HSAM, include MTMOD or SDMOD 
for linkedit. 


XMT 
CSECTs 








1 



Extended Oeswiption 


Routine 


Label 


1 . Process all DMBs referenced in DDIR 
entries uhless already built or 
LOGICAL. 




DDIR2SC2 


Write message DLZ905I for GETVIS 






error. 






2. The compression CSECTs and index 
maintenance CSECTs are moved to the 
new DMB. 




DMBREL 


Write message DLZ570I for an invalid 
SEC list code found in a DMB. 






3. The reference list is the last part of 
the DMB. If the DMB is not in the 
list, it is added. Repeat this step for 
each SEC. 




iSECREL 


4. 




PSDBREL2 


5. Any addresses vdiich do not fall within 
the DMB are set to zero. 




DMBOUT 



Extended Description 



DLZUACBO 

Routine Label 



6. The names in the relocatable library 
of the required modules are 
DLZTAPE or DLZDISKI and 
DLZDISKO. 




DMBOUT 1 
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I Figure 2-33.12. Write DMBs (Part 2 of 2), 

!■ INPUT I I ■■ PROCESS I 



DDIRDMBN 



:> 



7. Write DMB to SYSLNK or SYSPCH. 



I- OUTPUT- 



OUTPUT 



8. Free the new DMB storage and 
return to Step 1 to process the 
next DDIR if there is one. 



FREEVIS Macro 



9. Return to caller. 



:> 



To Figure 
2-33.8 
Step 5 



QC 



DLZUAMBO - Block Mover CSECT 






7. The same subroutine is used for tiie 
PSB also. 

8. Write message DLZ926I for a 
FREEVIS error. 




DMB0UT3 



Extended Description 



DLZUACBO 

Routine 



Label 
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Figure 2-33.13. Write PSB 

pi INPUT . ■ 



ENQLSTA 


PSB Prefix 


1 PSIL 






PSBXIOWK 




PSBSEGWK 




PSBPST 








PSBNDXWK 




PSBIOAWK 



PCB 



DSGs 



SDBs 



SDBs 



h 



generated 



XMT PCB 



•■PROCESS 



From Figure 
2-33.8 
Step 6 



1. Acquire storage for entire PSB. 



GETVIS IVIacro 



2. Move pieces of PSB to acquired 
storage. 



3. Convert addresses which 
reference locations within PSB 
to offsets from the correspond- 
ing PCB. 



4. Write intent list/PSB to 
SYSLNK or SYSPCH. 



5. Free the new PSB storage. 



FREEVIS IVIacro 



6. Return to caller. 




To Figure 
2-33.8 
Step 6 



•OUTPUT- 



^QC 



SYSLNK SYSPCH 



DLZUAMBO - Block Mover CSECT 



Extended Description 


Routine 


Label 


1 . The size calculation formula is 

PSBPST - PSBXIOWK - PSBSEGWK 
- PSBNDXWK - PSBIOAWK + length 
of PSIL. 




PSBMOV 


Write message DLZ905I for GETVIS 
error. 






2. 




PCBMOV 
SDBMOV 
FSBMOV 
FRIVMOV 


3. 




FERTREL 

PCBREL 

DSGREL 

SDBREL 

FSBREL 


4. 




PSBOUT 


5. Write message DLZ926I for 
FREEVIS error. 







Extended Description 



Routine 



Label 




2-272 Licensed Material - Property of IBM 



I Figure 2-33.14. Build PSB (Part 1 of 2) 



I 



INPUT 



A (LIST) 



A (DBD) 



DBDGEN 
> Control 
Block 



DBDGEN Control Block 



SEGPARC 


FLDFLAG 


SEGLEVEL 


FLDSZE 


SEGFLDTB 





■■ PROCESS ' 



From Figure 
2-33.8 
Step 9 



1. Establish addressability and 
calculate the required PSBGEN 
size. 



■■OUTPUT- 



2. Using DBD, calculate required 
key feedback length and add to 
PSBGEN size. 



3. Acquire PSBGEN storage. 

GETVIS Macro 




Caller 
Registers 



Si 





LIST 






A (DBD) 




A (PSB) 




PSBGEN 

Control 

Block 










1 



DLZDPSBO - Utility PSB Generator CSECT 



Extended Description 


Routine 


Label 


1 . Routine identifier DLZDPSBO vrnp is 
defined here. A parameter list con- 
taining DBD address is passed in 
Register 1. The contents of this DBD 
are used to create the utility PSB. 


DLZDPSBO 


DLZDPSBO 
INIT 


The PSBGEN size will be the fixed 
size plus the number of segments 
times the length of SENSEG entry. 






It is possible to have an invalid access 
method error to pass back to 
DLZDLBLO. 






2. The result will be stored in PSB 
Prefix. 




SEGLOOP 
GETKEYSZ 


3. The area is also cleared to zeros. 
Write message DLZ905I for GETVIS 




USECURRl 


error. 







Extended Description 



DLZUACBO 

Routine 



Label 
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I Figure 2-33.14. Build PSB (Part 2 of 2) 

I INPUT II I IP PROCESS I 



DBDGEN Control Block 



][ 



Caller 
Registers 



h 



4. Fill PSBGEN Prefix and PCB. 



5. Fill SENSEG entries. 

6. Move DBD name to DB Reference 
Table. 



> 7. Return. 




OUTPUT- 





PSBGEN 






PREFIX 




DBPCB 


SENSEGS 


DBREFTAB 









R1 



i 



A (LIST) 



LIST 



A (DBD) 



A (PSB) 



return 
code 



DLZDPSBO - Utility PSB Generator CSECT 
Extended Desqription 



Routine 



Label 



4. PROCOPT of 'A' is set in PCB for 
all DBDs except secondary index 
where *LS' is set. The *A' is changed 
to the proper 'load* by batch initializa- 
tion if necessary. 

5. Same PROCOPT as in Note 4. 

6. In addition, no SORTAB is indicated. 

7. The address of the built utility PSB 
is returned to the caller in the 
parameter list. 


DLZDPSBO 


CLRDONE 

PSEGLOOP 
SETDBREF 
RETURN 



Extended Description 



DLZUACBO 

Routine 



Label 
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I Figure 2-33.15. Message Writer 

pi INPUT I 



Ti Caller p ""C 

1^ 



PROCESS ' 



Caller 
Registers 



^ 



a 



I DLZLBLMO- Message Writer CSECT 
Extended Description 



(7i> 



"^ 



This routine can be called by 
DLZAUCBO, DLZLBLMO, 
DLZUAMBO, or DLZDPSBO. 



1. Find matching message ID. 



2. Move message to output area. 

3. Also move all inserts to message 
if any. 

4. Print message. 

5. Return. 



^ 



^ 



-S 



^ 



F OUTPUT- 



Caller 
Registers 



h 



MSG 



MSG/..MSG 



Routine 



Label 



Extended Description 



DLZUACBO 
Routine 



Label 



4. A subroutine in DLZUACBO 
CSECT is called to do the actual 
printing. 
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Figure 2-34. 


Prereorganization Utility (Part 1 of 4) 












From 
Batch 

Initialization 
(Figure 2-3.4) 














HHI^ 














r 


Caller 
PSTADDR Registers 




R1 


> 1 ^nua nnntonte nf R1 in P.QTAnnR >l 




PST 
Address 


y 


2. Open printer and reader and 
establish PST and SCD 
addressability. 

^■■^ OPEN Macro 
^■■i^GETIME Macro 

^ 3. Read control cards and 

validate content. At end of 
file go to Step 7. 

^■■^ GET Macro 

^ 4. Convert the dbdname to a 








L 


1 






















SYSIPT 










DBIL= 


dbdname 


or 


' 


DBR=dbdname 


DMBNAME 


, 1 




dmbname. 


.>\ 






< 5. Acquire list space if required 




1 


















LSTHD 

A 1 


DMBNA 


ME - -..- - --- ^ 




1 




and enter UMB in control list. 


►> 




1 


^■■§4 GETVIS Macro 

6. Return to Step 3 to process the 
next operand or control card. 








1 1 1 1 






DL2UCDS0 








LEFPTR 




LENAME 


LECRNO 


LELEN 


LEFLG1 




Control List 
















^ 


J 



DLZURPRO - Prereorganization CSECT 



Extended Description 


Routine 


Label 


1. Module identifier (DLZURPROvrnp) 
is defined here. 


DLZURPRO 


DLZURPRO 
HERE 


This utiUty executes as 'ULU' under 
DL/I control. No blocks or buffers 
have been loaded yet. Only the nucleus 
exists. Batch initialization passes the 
PST address to the logical relationship 
utihties rather than a PCB address. 






2. 




OPENl 


3. Control card contains identifier as 
DBIL= (initial load), DBR= 
(reorganize), OPTIONS=, and 
dbdnames. In case of an input control 
card format error, message DLZ954I 
is printed and job terminates. 




NXTCR 


4. 




DBIREC 
DBRREC 



Extended Description 



DLZURPRO 

Routine 



Label 



5. Control list entries contain DMB 
names of data base and user options 
specified in control cards. 

Macro DLZUCDSO contains the 
DSECT defining the format of a 
control list entry. 

Write message DLZ963I if an entry 
already exists for a dmbname. 

Write message DLZ965I if the number 
of control list entries exceeds the 
maximum of 20. 

Write message DLZ391 1 if GETVIS 
fails. 




LSTINS 
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Figure 2-34. Prereorganization Utility (Part 2 of 4) 



■■ INPUT 



DLZUCDSD 



Control List 



PSTADDR 



BLDB 
Address 



I 



PROCESS ' 



7. Continue to next step for each 
data base referred to in control 
list entry. 

At end of entries, go to Step 15. 



^OUTPUT- 



PDIR 


R1 


PDIRADDR 1 


^PCBLIST 
Address 




PCB 




DBPCBDBD 


lPSB 


JPSBLIST 1 


DBPCBJCB 



I> 8. Load utility PSB. 



PDBN 
^ DMBname 



DLZBLKLD Macro 



BLDL Function for 
Utility PSB 



JCB 




SDB 




JCBSDB1 




SDBPSDB 




JCBSDBND 


SDBLEN 


JCBORGN 










r&UD 






DMBFLAG 




DIVIBLST 











> 



9. Find the PCB representing this 
data base. 



> 



DL/I Blocl<s 
and Buffers 



10. Scan all segments in data base 
for logical relationships (LR) 
and continue for each found. 
At end, return to Step 7. 



X 



DLZURPRO — Prereorganization Utility 



Extended Description 


Routine 


Label 


7. Write message DLZ964I for no DBIL 
or DBR control cards. 


DLZURPRO 


SCAN 
SCAN 10 


Write message DLZ976I if the 
dbdname specified is an index DBD, 






8. The DLZBLKLD macro moves the 
dmbname to PST at PSTPCPSB and 
sets utiUty suffix 'U' and calls DL/I 
with the BLDB call function. 




BLDBLKS 


Write message DLZ956I for a data 
base control block build failure or 
if there is no PCB. 






Rl is returned with the address of the 
PSBLIST. 






9. 




NEWDBLP 


10. If a LP/LC exists for a segment, 
continue to the next step to look at 
the secondary Ust entries for the 
segment. After each SDB with a LR 
has been processed return to Step 7 
to process the next data base control 
Ust entry. 




SCAN20 



Extended Description 



DLZURPRO 

Routine 



Label 
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Figure 2-34. 

■■ INPUT ■»■ 



Prereorganization Utility (Part 3 of 4) 
i PROCESS - 



DMBSECSC 



PSDB 



DLZUCDSO 




11. Scan all SEC entries for logical 
parent (LP) or logical child 
(LC) entry and continue for each 
found. At end, return to Step 10. 



12. Find the PSDB and then the SEC 
entry of the referenced segment 
that points to this segment in 
order to find the LC's LP or 
the LP's LC. 



13. Build a data base list entry 
for the found LP or LC if it 
exists in a data base not on the 
DBIL= or DBR= card. 



14. Build a segment list entry for 
the segment and a secondary 
list entry. Return to Step 11. 



> 15. Print and punch DBS cards if 
requested by OPTIONS. 



16. Determine device type and open 
the control data set. 



DLZDVCE Macro 
OPEN Macro 



i- OUTPUT- 



c> 



> 



Data Base List 
Entries 



Segment List 
Entries 



Secondary List 
Entries 







1 








SYS LSI SYSPCH 





DLZURPRO - Prereorganization Utility 



Extended Description 


Routine 


Label 


11. 


DLZURPRO 


SCAN50 


12. The correct SEC is found by comparing 
the dbdname in the SEC to the 
dbdname in the SDB. 




SCAN60 


Each SEC for the segment is examined 
to see if it is a LP or LC entry. 






Write message DLZ965I if a SEC is 
not found with a matching dbdname. 






13. Write message DLZ985I for a limit 
check failure. 




SCANllO 
SCAN140 


14. Segment entries contain segment 
names involved in logical relationships 
(LR). 






Secondary list entries contain DMB 
names which refer to logically 
related data bases. 






As control data set list entries are built, 
each record is calculated to determine a 
maximum record length. The largest size 
is saved and put into field LESRTSZE 
when the control data set is written 
(Step 17). 







Extended Description 



DLZURPRO 

Routine 



Label 



15. DBS indicates data base must be 
scanned using SCAN utility 
(DLZURGSO). 

Write message DLZ962I to list 
segments scanned. 

16. Write message DLZ984I if there is an 
invalid device assignment for 
SYS012. 




SCNLST 
NXTDB 

SCAN500 
OPENCTL 
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Figure 2-34. Prereorganization Utility (Part 4 of 4) 
■ INPUT I r- PROCESS I 



Data Base 
List Entries 



Segment List 
Entries 



Secondary 
List Entries 



Caller 
Registers 



c> 



:> 



17. Write Control list to control 
data set. 



PUT Macro 



18. Close control data set, printer, 
reader, and punch. 



CLOSE Macro 



■-OUTPUT! 



19. Return. 



To 
Batch 

Initialization 
(Figure 2-3.4) 



> 




Control 
Data Set 
(SYS012) 



DLZURPRO - Prereorganization Utility 
Extended Description 



Routine 



Label 



17. 

18. Write message DLZ966I for a 
normal termination. 

19. 


DLZURPRO 


SCLPS 

SCAN700 
TERM 

GOODRET 



Extended Description 



DLZURPRO 

Routine 



Label 
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Figure 2-35. DB SCAN (Part 1 of 8) 
r- INPUT I r> PROCESS 1 



A (PST) 





Control 
Data Set 




^ 1. Establish addressability and 
open the printer reader, and 
console. 



: V 2. Open Control Data Set 



I- OUTPUT* 



OPEN Macro 



Check ASSGN and 
fill DTP. 



> 3. Read all control records. 



GET Macro 
GETVIS Macro 



4. Close control data set. 




Scan Input Cards 
(Optional 



CLOSE Macro 

5. Read input control cards. 

GET Macro 



Caller 
Registers 



r 



segm list ent. 



Control Data Set 



DLZURGSO - DB SCAN CSECT 



Extended Description 


Routine 


Label 


1. Module identifier is defined here. This 


DLZURGSO 


DLZURGSO 


utility executes as 'ULU' under DL/I 




OPENl 


control. No blocks or buffers have 






been loaded yet. Only the nucleus 






exists. Batch InitiaHzation passes the 






PST address to the logical relationship 






utilities rather than a PCB address. 






The DLZDSEHO prefix contains 






addresses to routines within 






DLZDSEHO. The routines are used 






by this utility. The addresses are 






moved to a constant area beginning 






at ADSEHO. 






2. The 'FINDDTF' subroutine of 




PROCCTL 


DLZDSEHO is used to check that 




OPEN 


SYS012 is properly assigned to a disk 






and to fill the correct device type 






in DTP. 






Write DLZ984I if the control file is 






not assigned to a disk. 






3. The Control Data Set is moved from 






the I/O area to storage acquired by 






GETVIS for further processing. 







Extended Description 



DLZURGSO 

Routine 



Label 



3. (con't) 

Write DLZ391I for a GETVIS 
failure. 

Write DLZ957I for no control data 
set or, if the ID is not 'CONTROL 
DATA SET'. 

4. 

5. Input on 'DBS=' card is used to 
modify Control Data Set in core. 
'RSTRT=' and/or 'CHKPT=' specify 
checkpoint/restart capabilities. 
'ABEND' card used for testing. 

Write DLZ954I for a control card 
format error. 




CDSEOFB 
NXTCR 
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Figure 2-35. DB SCAN (Part 2 of 8) 

■ INPUT I 



DLZUCDSO 



LESLPTR 



Control 
Data Set 



AOPENWRK 









I PROCESS I 



\ a. For DBS=, set up list entry scan. 



b. For RSTRT=, set up to perform 
restart. 



c. For CHKPT=, set up to perform 
checkpoint. 



6. Open work data set. 



OpenWORKFIL 



7. If not restarting, go to step 14. 



8. Open Restart file. 



Check ASSGN 
and fill DTF 



9. Copy records to output file (including 
checkpoint records) until the check- 
point record to restart from is found. 



GET Macro 
PUT Macro 



DLZURGSO - DB SCAN CSECT 

Extended Description 



-1 ig^ P 



Routine 



Label 



a. 




DBSREC 


b. 




RSTRTREC 


c. 




CHKPTRC 


6. Write DLZ984I for unknown or ignored 




SCAN 


device type. 






7. 




SCAN 10 


9. Restart records are copied from the 




RSTRT40 


previous WORKFIL until the specified 






checkpoint record is found. An SSA 






is set to do quaUfied GU on last 






segment to reestablish position. 







OUTPUT- 



RSTRTVC 




RSTRTN 





















S CHKPTINC 



> AWORKFIL 




Extended Description 


Routine 


Label 
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Figure 2-35. DB SCAN (Part 3 of 8) 

■ INPUT 



CKPT Record 




[PROCESS I 
10. Get 



10. Get ready to position the data 
base to the segment identified 
in the requested checkpoint 
record. 



•OUTPUT^ 



PDBN DLZUCD50 



□ 



Control 
Data Set 



y 



11. Copy the checkpoint continua- 
tion record to the work file. 



GET Macro 





PRMLST 


PDBN 

1 1 




Count 


GU 


PSEGN 

1 1 


A (PCB) 




A (SSA) 


SSA 

I—I 







DBNAMEFC 



c> 



12. Locate the data base list entry 
and segment list entry in the 
Control Data Set to restart 
processing from. 




13. Close Restart file. 



CLOSE Macro 



' ^ 14. Get a data base list entry and 
continue to step 15 for each 
one found. 

After all list entries have 
been processed, go to step 34. 



>i 



DLZURGSO - DB SCAN CSECT 



Extended Description 


Routine 


Label 


10. The SSA built is a qualified key 




RSTRT50 


call — 'segname*C (key)' to be used 






in the call at step ^1 . 






1 1 . A continuation checkpoint record 






contains the key value which is 






moved to the SSA for a quaUfied 






key call. 






12. 




RSTRT62 


13. Write DLZ975I Restart complete. 




RSTRT70 


14. Write DLZ966I for normal program 




NXTDBP 


termination if there are no more 




NXTDB 


DB list entries to process. 







Extended Description 



DLZURGSO 

Routine Label 
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Figure 2-35. 


DB SCAN (Part 4 of 8) 












_ r\\ iTPI IT ^ 








dlzucdso 
|leflgi 1 


: 


^ 15. Determine if this data base is 
to be scanned. Return to step 
14 if not. 


•^ 












"% 16. Load Utihtv PSB. 


> 






KbIAUUH 

1 1 




'^ ' 


• "■' ' 


^ 






1 LENAME 


^H|k „,,„,., 


1 


^^^r 












ASMTDLI 




DL/I Blocks 
and Buffers 

^ PRMPCBAD 


DLZBLKLS 


DOS CI L 


BLDB function 
for utility PSB 


j A (BLDB) 












1 


► 17. Find the PCB representing this 
data base. 


PST 


PDBN 

1 1 




1 PSTPSB 




^ 


1 


] 


PDIR PCB 


4-4 


CALL Macro 










ASMTDLI 






1 PDIRADDR 1 1 DBPCBDBD | 


UNLD 




PSB 










PSBDBOFF 






PSBLIST 








1 


L 


PJCB 




CURSGPTR 1 


PCB 


CURDBPTR \. 
1 ll 




> 18. Save PCB and JCB pointers. 





1 1 


1 


i DBPCBJCB 




Set up initial segment list 


>■ • 


' * 1 








1 I 


JCB DLZUCDSO 


entry. 


PRMLST 




SSA 






segment 1 


JCBSDB1 


1 LESLPTR 1 








JCBSDBND 


A (PCB) 


II 




CKPT Record 




SDE 


L 1 








1 1 




JSDBFSI-J II 






11 












1 



DLZURGSO - DB SCAN CSECT 
Extended Description 



Routine 



Label 



15. If DBS control cards were present, 
only those data bases in the control 
list that were on DBS cards are 
scanned. 

Write DLZ970I scan processing 
started. 

16. The DLZBLKLD macro moves the 
dmbname to PST at PSTPCPSB and 
sets the utility suffix '4'. The 'BLDB' 
call loads all blocks for the PSB 
specified and allocates buffers. 

Write DLZ956I for a data base control 
block build failure. 

17. If a PCB is not found, an UNLD is 
done to release the buffers before 
the next BLDB call (return to step 
16). 




NXTDBA 
BLDBLKS 

NEWDB 



Extended Description 



DLZURGSO 

Routine Label 
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Figure 2-35. 

■■ INPUT —■ 



DB SCAN (Part 5 of 8) 



DLZUCDSO 






segment 




list entry 







JCB 


SDB 


JCBSDB1 


SDBSYM 


JCBSDBND 


SDBPSDB 



1 PROCESS I 



A (PCB) 



A (I/O area) 



A (SSA) 




19. Locate the SDB and PSDB for 
each segment list entry that 
is to be scanned for this db 
entry. 



f OUTPUT! 



20. Get I/O areas. 



FREEVIS Macro 
GETVIS Macro 



CURSGPTR 


DLZUCDSO 


1 1 


LEFPTR 




LENAME 


CHKORGS 


LEPSDB 


1 1 


LELSDB 



^ 21. If restart, position the data 
base. 



22. Get a segment list entry, 
build a parm list for its 
segment type and continue to 
next step. At the end of 
entries, go to step 14. 



t ■ ■■■ 

DLZUCDSO 




LEPSDB 






LELSDB 





PRMLST I/O area 




1 1 






A (I/O area) 







PRMLST 


SSA 


Count 


segname [ 


GU 




A (PCB) 




A (I/O area) 




A (SSA) 





DLZURGSO - DB SCAN CSECT 



Extended Description 


Routine 


Label 


19. The Control Data Set entries are 




NXTSEG 


modified to save SDB and PSDB 






addresses. 






Write DLZ969I if an SDB is not 






found for the segment in the segment 






list entry. 






20. The size is the longest needed for 




SETUP 


this data base. Any previous I/O 




LENSEG 


area is freed. 






21. Position is by a qualified key call. 




CRST 


22. The first segment list entry will 




PROC 


either be the initial entry for the 






db or the segment list entry to 






restart from. 






Write DLZ971I Scan processing 






completed for this DB if no more 






segment entries. 







Extended Description 



DLZURGSO 

Routine 



Label 
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Figure 2-35. DB SCAN (Part 6 of 8) 

■ INPUT — — — — 



PRMLST 




LtV 



SCD 

I SCDDDBHCT] 



X 



SEGM in 
buffer 



(R3) 



LFT ptr 



LTB ptr 



LP ptr 



A (LPCK) 



I PROCESS ' 



; > 25. Get buffer address of segment. 



23. Issue a GN for segname. 



ASMTDLI 



GN segname 
to DL/I 



24. If there are no more occurrances 
of this segment type, go to 
step 22. 



A (CDSREC) 



"> 26. Fill in parameter list for 
^ DLZDSEHO. 



> 27. Go write WORKFIL record. 



DLZURGSO - DB SCAN CSECT 



■-OUTPUT- 



I/O Area 



PSTFNCTN 



PSTDSGA 



I 



prefix + 
segnnent (in 
buffer) 



Parm List (R3) 



CTR 



LFT ptr 



LTB ptr 



LP ptr 



A (LPCK) 



A (CDSREC) 



PST ^ --N. 

jPSTWRKll Jr "^ 

save • 

registers WORKFIL 



Extended Description 


Routine 


Label 


23. Every occurrance in the data base of 
the LC or LP segment type to be 
scanned is read and a workfile record 
created for it. 




PROC20 


24. If the return code is 'GB', indicating 
EOF for this segment type, return 
to process next segment list entry. 






25. Scan must have the prefix information 
to give to DLZDSEHO. 




LEST 
TESTRSTA 


Write DLZ958I for a buffer handler 
error retum. 






26. In addition, Rl 1 has the address of 
WORKFIL DTP, Rl has the PST 
address, and PSTWRKl has the 
'FUNCIHPS' and SDB address. 




LPOFFR 



Extended Description 


Routine 


Label 


26. (con't) 






Test routine in DLZDSEHO will 






determine the output records required 






by scanning the SEC Hst. 






27. Registers are saved and then restored 




TESTRT 


upon return. 






Write DLZ952I for an error return 






code from DLZDSEHO. 
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Figure 2-35. DB SCAN (Part 7 of 8) 

■ INPUT — ^— I f« PROCESS < 



CHKPTINC CHKPTLOC — 



PRMPCBAD RGB 



DBPCBDBD 



'. ^28. Perform checkpoint operation if 

required. Otherwise, skip to step 33. 



U^ 



Checkpoint 
Record 



N29. Build checkpoint record. 



AWRKDSEH PCS 



Checkpoint 
Record 



^30. Write checkpoint record to 
WORKFIL. 



Continuation 

Checkpoint 

Record 



^31. Build the continuation checkpoint 
record. 



^32. Write continuation checkpoint 
record to WORKFIL. 



PUT Macro 
TRUNC Macro 



33. Return to step 23 to get next occurrance 
of this segment type. 



DLZURGSO - DB SCAN CSECT 



Extended Description 


Routine 


Label 


28. A checkpoint record is written after 
every 'n' work file records, 'n' is 
specified on the CHKPT input card. 




CHKPT 


29. Note that the checkpoint record is 
built with zeros where the RBN 
number would be (CHKPTSUB). 
This forces an *C call (quaUfication 
by ^concatenated key) instead of 
*T (retrieve by direct address) 
during restart processing. Retrieve 
by direct address would be used if 
working with HIS AM data sets. 




CHKPT18 


30. 




CHKPT19 


31. 




CHKPT22 


32. Message DLZ967I is written to the 
console giving the current check- 
point record number for later 
reference. 




CHKPT24 


33. 




TLISTD 



Extended Description 



OUTPUT- 



> 



CHKPTLOC 



Checkpoint 
Record 



CHKPTSVC 




Checkpoint 
Record 



X'80' 



length of record 



CHKPTN 



key length 



key 




DLZURGSO 
Routine 



Label 




2*286 Licensed Material - Property of IBM 



Figure 2-35. DB SCAN (Part 8 of 8) 

> INPUT I 




1=1 



1 PROCESS < 



Caller 
Registers 



J> 



34. Dump if non-zero error code 
and ABEND was on a control 
card. 



PDUMP Macro 



35. Close all files. 



CLOSE Macro 



> 36. Return. 




P OUTPUT - 



DLZURGSO - DB SCAN CSECT 
Extended Description 



Routine 



Label 



34. 

36. Indicate to batch initialization that 
UNLD is not necessary (R15 = 4) if 
this utility is terminating before any 
blocks were loaded or if there was a 
control block build failure. 




TERM 

Return 
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Figure 2-36. 


Prefix Resolution (Part 1 of 4) 














From 
DOS/VS 


1. Establish base addressability. 




> R12 R8 








^^^^^ OPEN Macro 

^^^^L COMRG and 
^■■■^ GETI ME Macros 




1 II 1 








> CNTLCARD 




/ 




> 2. Head control card and close SYSIPT. : 




— V 


^M|^ GET Macro 
^^^^L CLOSE Macro 

> 3. Determine device type and open the 
CONTROL data set. 

^^^^k DLZDVCE Macro 
^^^^k OPEN Macro 


y 












SYSIPT 








r 


Card I/O Area 




> 


f 






CDSHD DBNAMEFC 


(^ "^ 




1 II 1 




CONTROL 
Data Set 




J> 4. Read all control records. 


"y II 






^jjJlJIU^ GET Macro 
A||m|k GETVIS Macro 

5. Close the CONTROL data set. 

^^^^L CLOSE Macro 




CONTROL 
Data Set 















DLZURG10 - Prefix Resolution CSECT 



Extended Description 


Routine 


Label 


1. Module identifier (DLZURGlOvmp) 
is defined lie re. 


DLZURGIO 


DLZURGIO 


The time and date are acquired and 
message DLZ968I is printed at this 
time to indicate the beginning of 
execution for DLZURGIO. 






2. Write message DLZ954I for an input 
control card format error. 






3. Write message DLZ984I for an invalid 
device assignment for the file. 




CDSIN 
OPENCTL 


4. Write message DLZ957I if there is no 
control data set or if the ID is not 
"CONTROL DATA SET". 






Write message DLZ391I for a GETVIS 
failure. 






The maximum record length calculated 
by the prereorganization utility is 
obtained from field LESRTSZE and 
passed to SORT. 







Extended Description 



DLZURGIO 

Routine 



Label 



5. 




CDSEOF 
CDSEOFA 



^ 
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Figure 2-36. Prefix Resolution (Part 2 of 4) 

> INPUT ■«»■-«»— »»-i^ fB PROCESS I 



Q 



WRKINnn 
INDXWRK 
INTRMED 



Card I/O Area 



Q 



{. 



A {Perm list) 




6. Determine device type and open first 
input workfile and output files. 



DLZDVCE Macro 
OPEN Macro 



> 7. Load and execute SORT/MERGE. 

LOAD Macro 



I OUTPUT- 



BALR 



SORT/MERGE 



8. Close secondary index data set if it was 
opened. 



CLOSE Macro , 



9. If no logical relationships, go to Step 14. 



Q 



Q 



DLZURG10 - Prefix Resolution CSECT 



Extended Description 


Routine 


Label 


6. The secondary or logical data sets may 




OPENRTl 


or may not be opened depending on the 




OPIND 


user option on the input control card. 




OPENER 


' 7. Write message DLZ982I if the return 




SORTl 


code from SORT is not zero and go 






to Step 15. 






Sort is by (13, 255, A, 5, 1, A). Exits 






El 5 and E35 are described in Figures 






2-36.1 and 2-36.2. 






8. If there was no data put to the second- 




SORTllB 


ary index data set, put a dummy record 






before closing. 






9. 




SORTl IF 



Extended Description 



DLZURG10 

Routine Label 
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Figure 2-36. Prefix Resolution (Part 3 of 4) 





^ 
^ 


INTRMED V.^ '^ 




Q f=\ 

WORKFIL -"^^ 




R1 


A (Parm List) | 




PARLST2 








DOS/VS 
Core 
Image 
Library 






INTRMED 


CONTROL 
Data Set 



PROCESS ' 



10. Close intermediate file and 
determine device type and open 
for input. 



CLOSE Macro 
DLZDVCE Macro 
OPEN Macro 



11. Determine device type and open 
logical relationship output 
data set. 



DLZDVCE Macro 
OPEN Macro 

12. Load and execute SORT/MERGE. 

LOAD Macro 



SORT/MERGE 



13. Print statistics and message 
summary if requested. 




DLZURG10 - Prefix Resolution CSECT 



Extended Description 


Routine 


Label 


10. 




SORTllD 
0PENRT2 


11. 




OPENWLR 


12. Sort is by (29, 1,6, A 5,1, A). Exits 






El 5 and E35 arS described in Figures 






2-36.3 and 2-36.4. 






Write message DLZ982I if the return 




S0RT2 


code from SORT is not zero and go 






to Step 15. 






13. Control data set contains options as 




SUMM 


specified in DLZURPRO. 




STATFLG 







SYS011 WORKFIL 






SYSLST 
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Figure 2-36. Prefix Resolution (Part 4 of 4) 

m INPUT I I *■ PROCESS i 



CNTLCARD RTCD 



Card I/O 
Area 



DLZURG10 - Prefix Resolution CSECT 
Extended Description 



14. Dump if error code is 16 or 
8 and DUMP was specified on 
the control card. 



i- OUTPUT ■ 



15. Close the printer. 



PDUMP Macro 



CLOSE Macro 



16. Close INTERMED and WORKFIL if 
required. 

CLOSE Macro 



17. Return 



Routine 



Label 



14. Write message DLZ966I for normal 
program termination. 

15. 

17. 




STATENO 
CL0SRT2A 

CL0SRT2B 

CL0SRT2D 



Extended Description 



DLZURG10 

Routine Label 
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Figure 2-36.1. SORT E15 (DLZX15S1) 

m INPUT 




PROCESS I 



CNTLIFC 



Card I/O 
Area 



1. Read workfile records and pass 
to SORT/MERGE. 



SAVE Macro 
GET Macro 
RETURN Macro 



2. At end-of-f lie, close workfile 
and open next one, if any, and 
return to Step T. 



CLOSE Macro 
OPEN Macro 



3. When no more workf iles, indicate 
end to SORT/MERGE. 




■ifOUTPUTi 



To 

SORT/ 

MERGE 



PARMADDR 



PARMADDR 



DLZX15S1 -S0RTE15CSECT 



Extended Description 


Routine 


Label 


1 . Record length is changed to the maximum 


DLZX15S1 


DLZX15S1 


record length calculated by the prereor- 




EXIT15S1 


ganization utility (DLZURPRO) and 






passed to SORT by the prefix resolution 






utihty (DLZURGIO). Original record 






length is saved in last 2 bytes of LRECL 






field. 






Indicate ADD to SORT/MERGE after 






each GET. 






2. CNTLIFC is the number of input workfiles 




WRKEOFI 


specified on the utility control card. 




NXTFILE 



Extended Description 



DLZURGIO 

Routine 



Label 
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Figure 2-36.2. SORT E35 (DLZX35S1) 



■■ INPUT 



R1 



c 



A (Parm List) 



— 1^ I- PROCESS i 

From I 

SORT/ I 

MERGE I 

1 1 H^ 

^ 1. Establi 



A (record) 



DLZURWF1 CDSHD > 




1. Establish address to record 
passed by SORT/MERGE. 



2. If the record address is zero, 
go to Step 7. 



3. Process record depending on 
record type. 



4. If logical relationships, 
write to intermediate file. 



.OUTPUT- 



INRECAD PARMADDR 



XI 



A (record) 



5. If secondary indexing, write 
to SI output file. 






J> DI-ZURWF3 



QQ 

NTERMED ^ — -^ 



6. Indicate DEL to SORT/MERGE. 



RETURN Macro 



7. Indicate END to SORT/MERGE. 



ISORT/ 
MaHHMHjMERGE 



NDXWRK ^ ^ 



> 


PARMADDR 






^ 


A (Parm List) 


1 


c 


Parm List 








A (record) 




A (DEL) or A (END) 




RTCD 













DLZX35S1 - SORT B35 CSECT 



Extended Description 


Routine 


Label 


1 . SORT/MERGE passes one record at a 
time to this exit. The record is repre- 
sented by the macro DLZURWFl which 
contains the DSECT defining the 
format. The original record length is 
restored before processing. 


DLZX35S1 


DLZX35S1 
EXIT35S1 


3. Macro DLZURWF3 contains the 
DSECT defining the format of the 
output logical record and later used as 
input for DLZURGPO. 




ESTTYPE 


Possible errors are: 






DLZ955I - Invalid input record. 
DLZ977I - DupHcate record for LP. 
DLZ978I - Caution - no LC for LP. 
DLZ979I - No LP found for LC. 
DLZ980I - No LC found for LT. 
DLZ989I - Multiple LC/LP with no LT 
pointer specified. 






4. This file used as input for second 
SORT/MERGE. 




STATRIZ 
OUTPRVIA 


5. This is final output for secondary 
index relationships. 




TYPE04RT 



Extended Description 



Routine 



Label 



6. SORT/MERGE gets another record and 
reenters this exit at Step 1. 

7. 




RETSORTl 
ENDSORTl 
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Figure 2-36.3. SORT E15 (DLZX15S2) 

INPUT 



•■PROCESS I 




> 1. Get records from intermediate 
file and pass to SORT/MERGE. 



SAVE Macro 
GET Macro 



2. At end-of-file, indicate end 
to SORT/MERGE. 




■-OUTPUT- 



4, 



To 

SORT/ 

MERGE 



t 



PARMADDR 
A (Parm List) 



A (record) 



A (ADD) 



t 



PARMADDR 
A (Parm List) 



A (END) 



DLZX15S2 - SORT El 5 CSECT 
Extended Description 



Routine 



Label 



1. This file was written during first sort. 
2. 


DLZX15S2 


DLZX15S2 
EXIT15S2 

MEDEOFI 



Extended Description 



DLZURG10 

Routine 



Label 
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Figure 2-36.4. SORT E35 (DLZX35S2) 



■■ INPUT < 



A (Parm List) 



Parm List 



A (record) 



p PROCESS 1 

From I 

SORT/ I 

MERGE I 



1. Establish address to record 
passed by SORT/MERGE. 



2. If the record address is zero, 
go to Step 6. 

3. Process record depending on 
record type. 



4. Write to LR output file. 



•OUTPUT! 



PARMADDR INRECAD 
I I A (record) 



DLZURWF3 



5. Indicate DEL to SORT/MERGE. 

RETURN Macro 

6. Indicate END to SORT/MERGE. 




To 

SORT/ 

MERGE 



o 



,B 



PARMADDR 



A (Parm List) 




Parm List 




A (record) 


A (DEL) or A (END) 



DLZX35S2 - SORT E35 CSECT 



Extended Description 


Routine 


Label 


1. SORT/MERGE passes one record at a 


DLZX35S2 


DLZX35S2 


time to this exit. 




EXIT35S2 


3. Possible errors are: 




TP30RT 


DLZ955I - Invalid input record. 






DLZ980I - No LC found for LT. 






DLZ981I - Duplicate record for LT. 






4. This file used as input for the prefix 






update utility (DLZURGPO). 






5. SORT/MERGE gets another record and 




RETS0RT2 


reenters this exit at Step 1 . 






6. 




ENDS0RT2 



Extended Description 



DLZURG10 

Routine 



Label 
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Figure 2-37. Prefix Update Utility 

■ INPUT II 




) DL/I r PROCESS . 
J> 1, Readc 



Read control card. 



2. Determine device type and open 
input files. 




y> 3. Read input record. 



4. If not already loaded, load data 
base control blocks. 



> 5. Process input record. 



.OUTPUT- 



6. At EOF, close all files. 



DLZURGPO - Prefix Update Facility 
Extended Description 



Routine 



Label 



1. 

2. DLZDVCE macro obtains data from 
PUB. Device type may be TAPE or 
DASD. 

4. DLZBLKLD macro is used to load DB 
blocks dynamically. 

5. TYPE and TYPE 1 records (LC/LP) 
are processed by buffer handler calls. 
TYPE 4 records (SI) are processed by 
DL/I INSERT/UPDATE calls. 




OPENl 
OPENINP 

BLDBLKS 

TYPEO 
TYPEl 



4. 



^ 



Extended Description 



DLZURGPO 

Routine 



Label 
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Figure 2-38. Workfile Generator (Part 1 of 2) 

From 



pi IllJPUT 



Parameter 
List (R3) 



LTF ptr 



LTB ptr 



LPptr 



A (Ipck) 



A (cds rec) 



DLZDDLEO f" ''R^^^^^ ' 
Figure 2-10 




From 

DLZURGSO 
Fig. 2-35 



1. Perform initialization (Figure 
2-38.1.). 




DMBSEC 



PSTUSER 





A (I/O area) 



DBPCBKFD I/O area 






. If DLZURGSO is caller, 

A. Initialize dummy reload 
prefix header with par- 
ameters. 

B. Store its address. 



3. If end of secondary list, go 
to step 7. 



4. Match control data set entry 
with LC or LP secondary list 
entry. 



5. If LP segment, 

A. Build Type 00 record. 

B. PuttoWORKFIL. 

C. Go to step 3. 



^OUTPUT! 



I^ . I/O area 



A (I/O area) 



y^ V 6. Go to Figure 2-38.4 to process 

^ LC segment. 



C> 



WORKFIL 
Record 



:> 




WORKFIL 



DLZDSEHO - Workfile Generator 



Extended Description 


Routine 


Label 


1. This primary entry point is used by 
Load/Insert when a data base is being 
initially loaded or reloaded. There are 
7 fullwords of addresses immediately 
preceding this entry point used by 
modules that interface with 
DLZDSEHO. A logical parent or 
logical child record is input to this 
module. 


PLZDSEHO 


INIT 


2. This is the primary entry point for the 
scan utility. 




TEST 


3. This routine must be re-entered when 
the input segment is an LP because 
it could have more than one LC type. 




TLISTEND 


4. 




TESTC 


5. Description of WORKFIL record can 
be found in DLZURWFl dsect. 


DLZDSEHO 


LPl 


6. 




CHILD 



Extended Description 



DLZDSEHO 

Routine Label 
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Figure 2-38. Workfile Generator (Part 2 of 2) 
m INPUT I I f- PROCESS 



7. Exit with return code. 



I 



OUTPUT- 



Return to 
Caller 



:> 



DLZDSEHO - Workfile Generator 
Extjended Description 



Rout I ne Label 



7. If any error occured, call DL/I error 
message module to write DLZ007I 
rftessage on console with return code. 




RETURN 



Extended Description 


Routine 


Label 
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Figure 2-38.1. Initialization 



m INPUT 



R1 




PSTWRK1 








A (SDB) 














From Fig. ■■ PROCESS i 
2-38 Step 1 I 



OUTPUT! 



^ 1. Establish addressability for 
DL/I tables needed. 



2. If WORKFIL is not open, go to 
Figure 2-38.2 to open it. 



j> 3. Open Control Data Set and read 
all records. 



4. Close Control Data Set. 



DLZDSEHO - Workfile Generator 
Extended Description 



Routine 



Label 



1. The secondary list entries for the input 
segment are the primary source of 
information from the DL/I blocks. 

2. The address of the DTF is found in 
the address list at the beginning of 
DLZDSEHO. If it is 0, this workfile 
must be opened. 

3. This open is done only once. The 
'FINDDTF' routine is used to 
determine the correct DTF. If more 
than one record exists on the CDS, 
a GETVIS is done to hold the entire 
file in storage at one time. 


DLZDSEHO 


INIT 
LPLCA 
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Figure 2-38.2. Open Workfiie 

■ JNPUT ■■———1^— 



R13 R14 




A (regsave) 


A (return) 




R15 






addr of 
OPENWORK 








J 



A (DTF) 



From Caller ^ PROCESS < 
(See Note) 




1. Establish addressability. 



2. Set up input for FINDDTF. 



3. Get DTF address (Figure 2-38.3). 



4. Open DTF for WORKFIL. 



5. Save DTF address. 



6. Exit to R14 + 4. 



. OUTPUT ■ 



RO 



SYS#13 



A {disk 
DTF) 



R3 



JA (tape DTF) 



Q Q 

WORKFIL SYSOIS 



Return to 
Caller 



> 



Entry Point — 4 



DLZDSEHO - Workfiie Generator 



Extended Description 


Routine 


Label 


Note: This routine is called by DLZDSEHO, 






DLZDXMTO, and DLZURGSO. 






1. 


OPENWORK 


OPENWORK 


3. If control is returned to address in 






R14, an error occurred. R14 + 4 is 






the normal return. 






4. Rl 5 has address of correct DTF as 






returned by FINDDTF. 






5. When the WORKFIL is open, the 






address is saved in the address list in 






the beginning of DLZDSEHO csect. 






6. If an error was detected, control is 




OPENEXIT 


returned to the address in R14. 






Normal return is R14 + 4. 







Extended Description 



DLZDSEHO 

Routine 



Label 
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Figure 2-38.3. Find DTF 



■■ INPUT 



system 
number 



From Caller p PROCESS ' 
(See Note) I 



■-OUTPUT 



R3 



A (tape DTF) 



1. Issue DLZDVCE macro. 



> 2. If a tape, set R 15 to tape 
DTF address. 



R2 



A (disk DTF) 



> 3. If a disk, 

A. Modify DTF 

B. Set R15 to disk DTF address. 



4. If other than tape or disk, 
go to step 6. 



5. Exit to R14 + 4. 



6. If IGN,set RIBtozero. 



7. Exit to R14. 




DLZDSEHO - Workfile Generator 



Extended Description 


Routine 


Label 


Note: This subroutine is called by 
OPENWORK, DLZDSEHO, and 
DLZURGSO. DLZDVCE macro finds 
PUB entry for given programmer logical 
unit and the device type byte is used to 
determine further processing. 






1. 


OPENWORK 


FINDDTF 


2. 2400, 3410, and 3420 are supported. 




FINDTFO 


3. 2314, 3330, 3333, 3340A & B are 
supported. 




FINDTFl 
FINDTF2 


5. Normal return. 




FINDEXIT 


6. This allows DLZDXMTO to build 
secondary entries. 




FINDERRX 


7. This is the error exit. 




FINDERRU 



Extended Description 



DLZDSEHO 

Routine Label 
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Figure 2-38.4. Build LC Output 

■i INPUT 




PROCESS 



DLZDSEHO - Workfile Generator 
Extended Description 



1. Build type 10 record and 
writeitto WORKFIL. 



^ 2. If LTF pointers and non-unique 
sequence field, build and write 
type 20 record. 



> 3. If LTB pointers and non-unique 
sequence field, build and write 
type 30 record. 



i- OUTPUT- 



:> 



WORKFIL 
Record 



I type 10 I 



c> 



WORKFIL 
Record 

I type 20 [ 



Routine Label 



L 

2. 
3. 




CHILD 
LCI 

LC120A 

LCI SOB 



4. 



To Fig 2-38 
Step? 



Extended Description 



:> 



WORKFIL 
Record 

I type 30 I 



DLZDSEHO 

Routine Label 
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Figure 2-39. Log Print Utility 

INPUT 



DOS/VS 




1 PROCESS I 



1 . Read and process control cards. 



Control Statement 
Processor 2-39.1 



If any errors detected by DLZLPCCO, 
go to Step 9. 

2. Open output log if requested. 

3. Determine log device type and 
open log file. 

4. Read log records, deblock, and 
determine record type. 

5. Print log records. 



6. Write log records to tape if requested. 



7. Close input log file. If more files, 
return to Step 3. 

8. Close output log if requested. 

9. Print informational statistics 
and error messages, if any. 



^ 



^ 



3- 

■MB^J DOS/VS 



^ 



■ u 


u 1 ru 1 ■™i«« 








1 


SYSLST 

C) 

LOGOUT 










1 




SYSLST 
^^ and/or 


SYS LOG 












1 



DLZLOGPO - Log Print CSECT 





Extended Description 


Routine 


Label 




1 . Register 1 points to log print common 
area. 


DLZLOGPO 


GETCARD 




i 2. Output log requested by 'COPY' on 
'LO' statement. 




CARDEOF 




3. DLZDVCE macro obtains data from 
PUB (physical unit block) and modifies 
DTP. If VSAM log, ACB is modified 
manually. 




LOGOPEN 




4. Valid DL/I record types are: 




GETLOG 




Data base record (X'50' and X'5 1 ') 

Open record (X'2F') 

Scheduling record (X'08') 

Termination record (X'07') 

Checkpoint record (X'4r) 








5. Records are printed in either keyword 
or dump format. 




PRINT 




6. Log records are written to tape as read. 




GETREC 




7. nn of LOGINnn is incremented by 1 
if more files. 




LOGEOF 




8. Output log is closed when log record 
in error is encountered. 







Extended Description 
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Figure 2-39.1. Control Statement Processor (DLZLPCCO) 



INPUT 




PROCESS I 



1 . Read control statements. 



2. Validate control statements and save 
information in log print common area. 



3. Return to DLZLOGPO. 



^OUTPUT. 






Log Print Common Area 




To Figure 
2-39 Step 1 



DLZLOGPO - Log Print CSECT 



DLZLOGPO 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



1. Possible card types are: 

'LO' - describes print options, 
'LS' - describes additional selective 

print options, 
'LI' — describes input log files. 

2. Flag ERROROCC in LOGPFLGl is set if 
any errors are detected. 

3. If no input statements received, print 
default message DLZ41 61. 


DLZLPCCO 


GETCARD 

LOOOO 
LIOOO 
LSOOO 

CARDEOF 
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Figure 2-40. Field Level Sensitivity Copy 



m INPUT 



A (User Segment) 



[a (Output I/O Area) 



From Figure 
2-8.1 Step 8 A 



^ 



1 PROCESS 1 



1. Get addresses of user segment(s) and 
output I/O area. 



2. Calculate segment offset in output I/O 
area for this level. 



3. If segment at this level is not FLS, move 
as is from user I/O area to output I/O 
area. 



4. If segment at this level is FLS and call 
is ISRT, perform insert processing. 



Perform insert 
processing 2-40.1 



5. If segment at this level is FLS and call 
is REPL, perform replace processing. 



Perform replace 
processing 2-40.2 



6. If another level to process, go to step 2. 
Otherwise, point PSTUSER to output 
I/O area and return. 



•OUTPUT 




DLZCPY10 - Field Level Sensitivity Copy 



Extended Description 


Routine 


Label 


I. PSTUSER points to user's view of 
segment(s). PSBIOAWK points to 
I/O area to contain physical view of 
segment(s). 


DLZCPYIO 


DLZCPYIO 


2. LEVUSEOF will be changed from 
offset in user I/O area to offset in 
output I/O area. 




LEVLOOP 


3. Length of segment to be moved 
must be determined. If variable 
length segment, length is in first two 
bytes of segment, otherwise in PSDB. 
If concatenated segment, logical child 
and destination parent lengths must 
be added. 




LEVOOO 


6. 




NEXTLEV 



Extended Description 


Routine 


Label 
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Figure 2-40.1. Field Level Sensitivity Insert 



m INPUT 



From Figure 
2-40 Step 4 




1 PROCESS < 



1. Determine physical length of segment 
to be inserted. 



2. Clear segment to binary zeros. 



3. Scan FDB chain and, if segment is a logical 
child, the SEC chain to locate all fields for 
the segment. Move default value to output 
I/O area for each non-key field. 

4. If concatenated segment, scan destination 
parent FDB chain to locate its fields. Move 
default value to output I/O area for each 
non-key field. 

5. Call DLZSEGCV. 



DLZSEGCV 



Segment convert Routine 
2-40.3 



If conversion error, return status code 
to user. 



6. Return 



Return to 
Figure 2-8.1 
Step 9 



To Figure 
2-40 Step 6 



-OUTPUT — 

DBPCBSTC 






status code 











DLZCPY10 - Field Level Sensitivity Copy 



Extended Description 


Routine 


Label 


1 . If variable length segment, use insert 
length in SDB expansion block. 
Otherwise use le;igth in PSDB. 
If concatenated segment, logical 
child and destination parent lengths 
must be added. 


DLZCPYIO 


ISRT 


2. 




ISRTIOO 


3. 




ISRT105 


4. 




ISRT180 


5. Possible status codes are KA, KB, KG, 
andKD. 




SEGCV 



Extended Description 


Routine 


Label 
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Figure 2-40.2. Field Level Sensitivity Replace 



INPUT 



j old segment | 



From Figure 
2-40 Step 5 



^ 



PROCESS 



1 . Read segment to be replaced 



DLZDBHOO 



Buffer Handler 
2-15 



and move to output I/O area. 

2. If concatenated segment, read 
destination parent segment. 



A L 


DLZDBHOO 


^4 


Buffer Handler 
2-15 


Call DLZSEGCV. 


A k 


DLZSEGCV 


¥^ 


Segment convert Routine 
2-40.3 



If conversion error, return status 
code to user. 

If REPLACE=NO option specified, scan 
FSB chain and compare new field 
to old field. If field modified, return 
status code to user. 



■■OUTPUT- 



5. Return. 




DLZCPY10 - Field Level Sensitivity Copy 



DLZCPY10 



Extended Description 



Routine 



Label 



1. 

3. Possible status codes are KA, KB, KC, 
andKD. 

4. Status code KE is returned. 


DLZCPYIO 


REPL 
SEGCV 

REPL135 



Extended Description 


Routine 


Label 
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Figure 2-40.3. Field Level Sensitivity Segment Convert 



INPUT 



From Caller P PROCESS " 
See note. 



1. The SDB is used to locate the SDB 
expansion block and the first FSB. 



2. If SSA call, compare SSA field name to 
FSB field name. If no match, go to 
step 7. 



3. Initialize FER fields and set to and 
from parameters. 



4. If to and from types different, convert 
field to desired format. 



5. Move field to destination. 



6. Call user field exit routine, if any. 



user field exit routine 



If error indicated in FER, return error 
code to caller. 

7. If another FSB to process, go to step 2, 
Otherwise, return to caller. 



m 



Return to 
Caller 



FERPCSC 




error code 







DL2SEGCV - Field Level Serisitivity Segment Convert 



Extended Description 


Routine 


Label 


Note: DLZSEGCV is called by 
DLZCPYIO and DLZDLROO. 






1. 


DLZSEGCV 


DLZSEGCV 


2. DLZDLROO makes SSA call to 
convert SSA user field to physical 
view. Only this field and its 
subfields will be converted. 




FSBLOOP 


3. 




FSBOIO 


4. 




CONVERT 


5. 




MOVE 


6. Possible error codes are A, B, C, 
andD. 




USEREXIT 


7. 




NEXTFSB 



Extended Description 


Routine 


Label 
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Figure 2-41. Trace Print Utility 
INPUT 




PROCESS ' 



OUTPUT. 



Q S 



1. Open reader, printer, and console log. 

2. Read and validate control statement 
if present. 

3. Close reader. 

4. Acquire storage for input buffers. 

5. Check trace input device type, modify 
DTF, and open it. 

> 6. Read trace input. 

7. Format and print trace output. 



8. Close all files and issue any statistical 
or error messages. 




DLZTPRTO - Trace Print Utility 



Extended Description 



Routine 



Label 



Extended Description 



Routine 



Label 



2. Reads TI statement if present and prints 


DLZTPRTO 


READCARD 


card image on SYSLST. If any other 






type statement is present, it is also 






printed, but no further processing of it 






takes place. 






4. Storage is acquired for two input buffers. 




GETSTOR 


5. The DLZDVCE macro is used to 




CKDEV 


validate the trace input device, and 






modify the tape or disk DTF. 






6. The unformatted trace records are read 




GETENTRY 


from the trace input file until EOF is 






returned. 






7. The trace entries are formatted and 




PRTRACE 


printed one at a time until all entries in 






the record are processed. Control is then 






passed to step 6 for the next record. 
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SECTION 3: PROGRAM ORGANIZATION 



This section contains descriptions of the DL/I modiiles and their major 
routines « I 
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SYSTEM CONTROL MODULES 

DLZRRCOO * BATCH INITIALIZATION 

The responsibilities of this module are to: 

• Establish base register addressability* 

• Read required FARM information from SYSIPT or SYSLOG based on the 
UPSI byte setting* 

• Determine load address for batch nucleus module (DLZBNUCO) . 

• Provide a DL/I message subroutine (ERRORMSG). 

• Branch to region control interface (DLZRRCIO). 

Entry Interface ^ DLZRRCOO 

DLZRRCOO receives control from DOS/VS job control 

Exit Interface 



DLRRCOO passes control through branch to region control interface 
(DLZRRCIO), 

Register Contents 

R7 Address of ERRORMSG 

RIO Entry point address of DLZRRCIO 

Entry Interface - ERRORMSG 

ERRORMSG receives control through BALR from DL/I modules 

Register Contents 

Rl PST address or parameter list address 

R13 Save area address 

R14 Return address 

R15 Entry point address (DLZERRMS) 

Exit Interface * Calling Module 

Passes control through branch on register 14 



DLZRRCIO * REGION CONTROL PRIMARY INTERFACE 

This routine receives control from the DL/I initialization routine and 
serves as the primary interface for all DL/I program executions. Its 
responsibilities are: 

• Save input parameters 

• Load batch nucleus module (DLZBNUCO) 

• Establish SCD and PST addressability 
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• Invoke parameter analysis (DLZRRAOO) 

• Branch to application program control module (DLZPCCOO) 

Entry Interface - CLZRRCIO 

Receives control through branch from DLZRRCOO 

Register Contents 

R7 Address of ERRORMSG 

RIO Entry point address 

Exit Interface - Parameter Analysis 

Passes control through fall through to DLZRRAOO 

Register Contents; 

R2 Address of SCD 

R9 Address of PST 

R13 Save area address 

DLZRRAOO • USER PARAMETER ANALYSIS 

This routine checks the positional parameters for valid length and 
contents when first entered. Invalid parameters cause DL/I to issue an 
error message and abnormally end. There is an entry at NXTPORT (just 
before buffers are to be allocated) to check keyword parameters. Errors 
cause DL/I to issue an error message and abnormally end. 



Licensed Material - Property of IBM 3-3 



Layout and Description of FARM Field 

^ ^ . , ^ 

XXX, aaaaaaaa,bbbbfcbb^ccc, keyword operands 



XXX 



aaaaaaaa 



bbbbbbb 



ccc 



keyword 
operands 



FARM identifier in columns 1-3. 

DLI = Data base program to be executed. 
UDR = Data base recovery utility to be 

executed, 
ULU = Data base reorganization or logical 

relationship resolution program to be 

executed* 
ULR = HD reorganization reload utility to 

be restarted from checkpoint record. 

One- to eight-character name of the 
application program to be executed. 

One- to seven-character name of the program 
specification block (PSB) as specified in 
the PSB generation. 

If FARM is UDR, ULU, or ULR, one- to 
seven-character name of the data base 
description (DBD) as specified in the DBD 
generation. 

Number of data base buffer sub-pools 
required for job execution. 

HDBFR, HSBFR, ASLOG, LOG, and TRACE 



Entry Interface 

Receives control from DLZRRCIO 

Entry Register Contents 



When entered at DI4ZRRAOO: 

R2 Pointer to SCD (not used) 

R9 PST address 

R13 Save area address (not used) 

When entered at NXTPORT: 

R6 Pointer to first subpool information table 

R8 SCD address 



Exit Interface 



From DLZRRAO0 entry: 
DLZPCCOO 



Passes control by fall through to 



• From NXTPORT entry: Passes control by branch to PRMSRET 
Exit Register Contents: 

• From DLZRRAOO entry: 
R2 SCD address 
R9 PST address 
R13 Save address 
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• Froin NXTPORT entry: 
R2 SCD address 

R6 Pointer to last subpool information table 
R9 PST address 
R13 Save area address 

DLZPCCOO - APPLICATION PROGRAM CONTROL 

This routine is used only in the batch regions. It performs some 
functions analogous to those performed by the CICS scheduler in the 
online control program. It is responsible for the following functions: 

Initializing the storage management routine 

Invoking the application control blocks loader/re locator (DLZPINIT) 

Invoking the control program initialization routine 

Loading the application program 

Initializing the PL/I region (if PL/I) 

Invoking the application program 

Issuing an unload call in behalf of the applicacion program upon 
termination 

Writing the application program termination record on the DL/I log 

Closing the DL/I log* 

Data Areas Used 

PST 

SCD 

DDIR 

DME 

SDB 

PSIL 

Entry Interface 

Receives control by fall through from DLZRRAOO 

Entry Register Contents 

R2 SCD address 
R9 PST address 
R13 Save area address 

Exit Interface 

Passes control through BAL to DLZPINIT (entry point in DLZDBLMO) 

Passes control through BAL to application program 

Passes control through BAL to call analyzer (DLZDLAOO) 

Passes control through BAL to data base logger DLZRDBLO) 

Passes control to DOS/VS supervisor by issuing an SVC 14 normal 
ECJ supervisor call. 
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Exit Register Contents 

• From exit to DLZPINIT: 

R2 SCD address 
R9 PST address 
R14 Return address 

• From exit to application program: 

Rl Address of PCB address list 

R13 Save area address 

RliJ Return address 

R15 Entry point 

• From exit to DLZDLAOO: 

Rl PST address 

R13 Save area address 

R14 Return address 

R15 Entry address of call analyzer 

(obtained from SCD at label SCDDLICT) 

• From exit to DLZRDBLO: 

Rl PST address 

R13 Save area address 

R14 Return address 

R15 Entry point of log write^only routine 
(obtained from SCD at label SCDREENT) 
Entry point of force write routine 
(obtained from SCD at label SCDDBLFW) 
Entry point of logger close routine 
(obtained from SCD at label SCDDBLCL) 



or. 



or. 



DLZDELMO • APPLICATION CONTROL BLOCKS LOAD AND RELOCATE 



This routine performs the functions of loading and relocating DL/I 
application control blocks. Once the blocks are loaded and offsets 
resolved to actual addresses ^ the SDBs in the PCBs are connected to the 
appropriate PSDBs in the DMEs. The JOB data sets in the data base are 
connected to the appropriate ACBs in the DMBs, and control is returned 
to the calling routine. 

For "DLI" execution, the PSB name extracted from the PARM card is moved 
to the PSB directory and the PSB is loaded. The address of the PSB 
segment intent list and the PSB are stored in the PSB directory. The 
index work area (if required) is allocated and addresses are resolved. 
Next the intent list is scanned and the DMB directory is constructed 
from it. The DMB directory entries are scanned and the DMBLOADR 
subroutine (see below) is called to load and relocate the DMB s in the 
directory. Upon corapletion, the SDBs are connected to their 
corresponding PSDBs, the JCB DSGs are connected to their ACBs, and 
return is made to the caller. 

For the following utilities there is no PSB name in the parameter 
information: 

DLZURPRO ^ Data base prereorganization 
DLZURGSO • Data base scan 
DLZURGPO • Data base prefix update 
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These utilities perforin dynamic block loading using the DLZBLKLD macro. 

The DMBLOADR subroutine performs the loading and relocation of DMBs . 
The DMB directory is accessed and the DMB name extracted from it. A 
load is issued for the DMB and, if HDAM, the randomizing module 
extracted from the DMB is loaded. Next, the DMB directory entry is 
updated with a buffer size indication. For HD, this value is the 
control interval size of the data set; for HISAM, it is the logical 
record size^ Then all offsets are relocated to addresses, and control 
is passed to DLZCPIOO. 

Entry Register Contents ; 

R2 SOD address 

R9 PST address 

R13 Address of one of a set of prechained save areas 

R14 Return address 

Exit Register Contents 

Same as entry register contents 

DLZCPIOO - BATCH CONTROL PROGRAM INITIALIZATION 

This routine receives control from the application control blocks load 
and relocate routine and completes the intialization of the DL/I batch 
system. It is responsible for: 

• Allocation of the buffer pool 

• Formatting the buffer pool prefix, one or more subpool prefixes, and 
the buffer prefixes 

• Loading all required DL/I action modules 

• Initializing the SCD 

• Opening the DL/I log 

• writing the application program scheduling record on the DL/I log 

Entry Interface - DLZCPIOO 

Receives control by fall through from routine DLZDBLMO. 

Entry Register Contents; 



R2 


BCD address 


R9 


PST address 


R13 


Save area address 


Exit Interface 





Returns to DLZPCCOO 
Exit Register Contents 



R9 PST address 
R2 SCD address 
R14 Return address 
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DLZLIOOO • LANGUAGE INTERFACE 

The language interface provides conimunication between the application 
program and the program request handler • A copy of this module is lij-nk 
edited with user application programs. 

The language interface has responsibility for: 

• Storing the user's registers in the save area provided, 

• Providing a specific entry for Assembler, COBOL, RPG II, and PL/I 
application prog?:ams. 

• Locating 'the entry point of the program request handler. 

• Passing control to the program request handler 



Entry Interface - DLZLIOOO 

Receives control through branch from application program 

Entry Register Contents; 

Rl Call parameter list of implicit or explicit format 

R13 Save area address 

Rm Return address 

R15 Entry point 

Exit Interface 

Passes control to program request handler through branch from DLZLIOOO 



Exit Reqister Contents; 

RO Language identifier code 

Rl Parameter list 

R2*m As entered from application program 

R15 Entry point of program request handler 

DLZPRHBO - FRCGRAjyi REQUEST HANDLER 

The interface between the application program and the DL/I batch or 
control program is managed by the program request handler routine 
(DLZPRHBO) in module DLZBNUCO. It accepts parameters passed to it by 
the language interface module (DLZLIOOO), validates them, and passes a 
parameter list to the call analyzer. 

The program request handler accepts three call list formats: implicit 
direct, explicit direct, and explicit indirect. COBOL and Assembler- 
language programs may use either the implicit direct or explicit direct 
call list formats. Since special provisions are made for PL/I in 
handling the explicit indirect call list, it may be used only by PL/I 
language programs. 

The first parameter (argument 0) of the DL/I CALL determines whether the /I 

list is explicit or implicit. If the argument contains the address of ^ 

the parameter count (count of the number of arguments that follow), this 
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list is an explicit list. If the argument contains the address of the 
DL/I CALL function, this list is an implicit list. 

The responsibilities of this routine are to: 

• Verify parameter list addresses aligned and within the dynamic area 
of the machine 

• Reformat explicit parameter lists to implicit prior to submission 

• Reset PL/I STXIT PC processing 

• Provide caller's parameter list to the call analyzer 

• Return data to application program work areas 

• Maintain PL/I variable-length character string dope vector 

• Identify abnormal termination condition 

• Return directly to application program 

• Write checkpoint message if checkpoint issued 

Data Areas Used 

PPST 

PST 

SCD 

Entry Interface 

Receives control through branch from language interface (DLZLIOOO) 

Entry Register Contents 

RO Language indicator (zero if COBOL or Assembler; nonzero if 
PL/I) 

Rl Parameter list address (in application program format) 

R13 Save area address 

R14 Return (to application program) 

R15 Entry point address 

Exit Interfaces 

• Passes control through branch to call analyzer (DLZDLAOO) 

• Passes control through branch to error message writer (ERRORMSG) 

• Passes control through branch to abend processor (DLZABEND) 

• Passes control through branch to application program 
Exit Register contents 

• From exit to DLZDLAOO: 

Rl PST address 

R13 Save area address 

R14 Return address 

Licensed Material - Property of IBM 3-9 



R15 Entry point of call analyzer (obtained from SCD) 
at label SCDDLICT) 

From exit to EPRORMSG: 

Rl PST address 

R13 Save area address (PSTSVl) 

RIU Return address 

R15 Entry point of error message writer 

(obtained from SCD at label SCDERRMS) 

From exit to DLZABEND: 

R15 entry point to DLZABEND 
From exit to application program: 

R2 - 

R12 Restored to contents upon entry from application 
program to language interface module (DLZLIOOO) 

R14 Application program return address 



DLZABEND - STXIT ABEND 

Abnormal terminations invoked through the DOS/VS STXIT or terminations 
requested by DL/I action modules are handled by DLZABEND. 
Responsibilities are as follows: 

• Close the CL/I log, ^ 

• Issue an UNLD call to write the last records for Simple HSAM, HSAMr 
Simple HISAM and HISAM or write all buffers altered by the user. The 
UNLD call also closes the data base. 

• If a dump is requested, write a formatted dump of DL/I control 
blocks. 

• Cancel the partition. 

Entry Interfaces 

• Receives control through DOS/VS STXIT PC interface or STXIT AB 
interface 

• Recevies qontrol through branch from program request handler 
(DIZPRHEO) 

• Receives control through branch from DL/I action modules (including a 
special entry from the buffer handler) 

Exit Interfaces 

• Passes control through branch to data base logger (DLZRDBLO) 

• Passes control through branch to call analyzer (DLZDLAOO) 

• Passes control through SVC 6 (CANCEL) or SVC 2 ($$BJDUMP) to DOS/VS 

Exit Register Contents f1 

• From exit to DLZRDBLO: 
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Rl PST address 

R13 Save area address (PSTSVl) 

R14 Return address 

R15 Entry point of logger force write routine (obtained from 

SCD at label SCCDBLEW) or. 

Entry point of logger close routine (obtained from SCD at 

label SCBDBLCL) 

• From exit to DLZDLAOO: 

Rl PST address 
R13 Save area address 
R14 Return address 

R15 Entry address of call analyzer (obtained from SCD at 
label SCDDLICT) 

DLZIWAIT • DL/I IWAIT 

This module receives control when a DL/I action module requires DOS/VS 
wait linkage. 

Entry Interfape 

Receives control through BALR from a DL/I action module 

Entry Register Contents: 

R2 Address of event control block 
R14 Return address of caller 
R15 Entry point of DLZIWAIT 

Exit Interface 

• Passes control through SVC 7 (WAIT) to DOS/VS. 

• Passes control through branch on register 14 to the calling program. 
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ONLINE DL/I PROCESSOR MODULES 



Before attempting to use the information concerning DL/I processor 
modules^ you should be familiar with the Customer Information Control 
System/Virtual Storage CCICS/VS), References to the prerequisite 
publications are contained in the preface to this manual. 

The online DL/I processor modules DLZOLIOO and DLZODP provide services 
in a CICS/VS-DL/I environment as follows: 

a, DL/I system initialization 

bo DL/I user task scheduling 

c« Processing DL/I calls (online program request handler) 

d« DL/I user task completion 

e« DL/I normal system termination 

f« DL/I abnormal system termination 

g« DL/I online message writer 

h« DL/I-VSAM-CICS synchronization via VSAM "EXCP" Exit, 



DLZOLIOO - ONLINE INITIALIZATION 

In order to process DL/I applications in an online environment, a DL/I 
online nucleus must first be generated. The DL/I online nucleus 
generation procedure is described in DL/I DOS/VS Utilities and Guide for 
the System Programmer . The result of the procedure described in the 
publication is a DL/J online nucleus CSECT. 

The generated nucleus, which is link-edited into a DOS/VS core image 
library, consists of a system contents directory (SCD) , a table of 
partition specifications table prefixes (PPST) , a PSB directory entry 
for each PSE specified, a remote PSB directory entry for each remote PSB 
specified, and an application control table (ACT). 

The application control table (ACT) is used by DL/I online at CICS 
initialization to verify and load all PSEs and DMBs that can be 
referenced online. The ACT is used during scheduling to determine 
whether an online transaction is to use DL/I. It is also used by DL/I 
default scheduling to acquire a PSB to use with a DL/I application 
program if none was explicitly specified. 

The ACT is produced from parameters specified in the following DLZACT 
macro instructions: 

DLZACT TYPE=INITIAL 
DLZACT TYPE=CONFIG 
DLZACT TYPE=PROGRAM 
DLZACT TYPE=RPSB 
DLZACT TYPE=BUFFER 
DLZACT TYPE=FINAL 

Each ACT program entry is generated from the DLZACT TYPE=PROGRAM 
statement. These statements define to DL/I which application programs 
can use DL/I online. They also define which PSB names can be used by 
each of the application programs. There is one ACT program for each 
DLZACT TYPE=PROGRAM Statement used to generate the online nucleus. See 
the format of the application control table (ACT) in Figure 3-1. 
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^ 



Generated from: # 

DLZACTTYPE=PROGRAM \ 



A. 



B. 



8 '2 » bytes 

A. Buffer pool information address or 

B. Storage layout control table name or 

C. NumberofHb DBDs in HDBFR operand 



Program entry '^' 



E. F. 



G. 



1-m 



112 12 

D. ACTNM ACT program entry name 

E. ACTIND Entry indicator byte: 

X'80' Program is a DL/1 program 



bytes 



X'40' Program name not in CICS PPT 

X'20' ABEND option bit 

X'02' Program is deferred-scheduled 

F. ACTPCNT Count of PDIR (PSB) pointers for this program 

G. ACTPPTR PDIR pointer(s). ACTPCNT indicates how many pointers 

are included here before the start of the next ACT entry. 



Program entry 'n' 



■H 



A maximum of 4095 DLZACT TYPE=PROGRAM statements and a 
maximum of 4095 unique entries (an entry consisting of program name 
and one PSBNAME) may occur in one ACT generation. 



H. 



A ' bytes 

H. Delimiter (FF FF FF FF) indicating end of program entries 



/- 



^ 



Generated from: 
DLZACT TYPE=BUFFER 



HDBFR entry (subpool '1' 



< 



L 



V 



J, 



8 

I. Length of entry 
J. DBD name 
K. Number of buffers 
HDBFR entry (subpool 'n') 



HSBFR entry (DBD^I) 



M. 



I bytes 



P. 



»8 K 
L. FFOO 
M. DBD name 
N. Number of index buffers 
0. Number of KSDS buffers 
P. Number of ESDS buffers 
HSBFR entry (DBD #n) 



bytes 



Q. 



'4 I bytes 

Q. Delimiter (FF FF FF FF) 



Figure 3-1. Application Control Table (ACT) Format 
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DL/I initialization is performed during CICS/VS initialization just 
after loading the CICS/VS nucleus • The DL/I online nucleus module has 
been loaded by CICS/VS in the same manner as a CICS/VS nucleus module, 
and its address is placed in the CICS/VS CSA optional features list. 



Nucleus and Table Initialization 



DL/I verifies the presence of the online nucleus by checking the pICS/VS 
optional features list DL/I entry for a non-zero value. Once verified, 
the program request handler entry point is moved to the DOS/VS COMREG 
using the MVCOM macro. Next, the application control table (ACT) is 
located and an indicator is set in each corresponding PPT entry for all 
application programs which will use DL/I. Each PSB name in the ACT is 
eight characters in length. 

Next the PSE segment intent list is built. This is accomplished by 
loading each PSB defined in the ACT, except those defined as remote 
PSBs, in ascending address space in the low end of the partition and 
moving the intent list, which is appended to the front of the PSB, to an 
entry in the PSB segment intent list table. The length of the PSB plus 
the length of the index work area, if required, are used to calculate 
how much storage to reserve. The segment intent list is overlaid during 
this process because its information is redundant. The PSB directory 
entry for each PSB is initialized with the address of the intent list, 
the PSB*s storage address, and the amount of storage required. 

The DMB directory is constructed. One DMB directory entry is created 
for each unique data base (DMB) defined in the PSB intent list entries. 
DMB names are eight characters in length and consist of the DBD 
generation name extended to seven characters by at-signs (a) if 
necessary. The eighth character is D. At this time, a validity check 
is performed to ensure that all required DMBs, defined by the PSB intent 
list, have been defined in the CICS/VS file control table (FCT) • If any 
are missing, a message is written on the system console and the operator 
is given the option to continue or cancel. If initialization is to 
continue, PSBs which require the omitted DMB(s) are flagged to indicate 
this condition. Application programs which use these PSBs are not 
scheduled. 

Initialization continues with the loading of all DMBs specified in the 
DMB directory. As each DMB is loaded, the corresponding entry in the 
DMB directory is initialized. A test is then made for HDAM and the 
defined randomizing routine is loaded. As the DMBs are loaded, they are 
initialized. After all DMBs have been loaded and initialized, the size 
of the buffer pool is determined. The size of the pool is based on a 
user*supplied parameter which defines the number of subpools, the 
control interval size of each VSAM data set, and the HDBFR subparameter , 
which tells how many buffers will be in a subpool. 

After the pool size is determined, the required address space is 
reserved. Then the buffer pool prefix in the online nucleus is 
initialized. Next the subpool prefixes are created and initialized. 
There are 2-*32 prefixes for each subpool. 

Load Action Modules 

Upon completion of initialization of the buffer pool and prefixes, the 
DL/I action modules are loaded. As the modules are loaded, their 
corresponding entry points are moved to the SCD. The modules are loaded 
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in the following standard sequence if not otherwise specified by a 
storage layout control table: 

DLZDBHOO - Buffer handler 

DLZDLROO • Retrieve 

DLZDLAOO - Call analyzer 

DLZRDBLO * Data base logger 

DLZDLDOO • Delete/Replace 

DLZEDLEO - Load/Insert 

DLZDHDSO • Space managenient 

DLZDXMTO - Index maintenance 

DLZDLOCO - Open/Close 

DLZQUEFO - Program Jfsolation ENQ/DEQ module 

DLZQUEFW • Program Isolation ENQ/DEQ work area 

Initialize PSEs 

Upon completion of the loading of the action modules, initialization 
moves the specified PSBs using information stored in the PSB directory 
entries. After each PSB is moved, it is initialized and its 
corresponding PSB directory entry filled in. 

Attach Logger 

If data base logging has been specified by the user, the logger I/O 
module is initialized and attached. If the log module fails to attach, 
the data base log is closed and no logging takes place. 

Open Data Bases 

The final step of initialization is the opening of the data bases. The 
DMB directory is scanned for DME's that failed during initialization and 
the open initial attribute is reset for any found. Next the data bases 
are opened via an 'open all' call to the DL/I Open/Close module. All 
modules indicating open initial in the DDIR are opened by Open/Close at 
this time. 

Upon completion of the open processing, the IWAIT routine address is 
restored and control is returned to CICS initialization. 



DLZODP - DL/I TASK SCHEDULING 



DL/I task scheduling is initiated when a task receives control on a 
Transfer Control (XCTL). The CICS/VS Program Control Program (PCP) 
examines the DL/I user bit in the CICS/VS PPT entry. If the bit is set 
and the task is not already scheduled, CICS/VS branches to DL/I 
prescheduling routine, DLZODPOO. An indicator is set in the CICS/VS 
task control area (TCA) and control is returned to the CICS/VS PCP. 

DL/I task scheduling is also comprised of the following subroutines: 

• PST initialization 

• PSB intent scheduling 

• PSB initialization 

• Scheduling 

The caller provides the name of the PSB to be scheduled or optionally if 
the caller omits the PSB name in the call list, the first PSB name 
encountered in this program's ACT entry is provided as default. This 
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subroutine determines whether DL/I can support another task and creates 
an entry in the PST prefix area fgr this task. 

The SOD maxiinuiti task indicator is tested. If it is on^ the task cannot 
be scheduled, the SCD suspended task counter is incremented by one, and 
an indicator is turned on in the SCD. A CICS/VS SUSPEND macro is issued 
to suspend this task. 

If the SCD maximum task indicator is off, an available PST prefix entry 
is located and initialized for this task. The DL/I task accumulator is 
incremented by one and a test is made to determine whether the number of 
DL/I tasks now equals the maximum allowed. If yes, the SCD maximum task 
indicator is set, Next the SCD current maximum task indicator is 
tested. If on, the task cannot be scheduled immediately, and the 
subroutine issues a CICS/VS SUSPEND macro to suspend the task. The SCD 
current maximum task indicator is set if the scheduling of the task 
causes the current maximum task value to be reached. Control is passed 
to the PST initialization subroutine if the PSB resides on the same 
system. If a remote PSB is to be scheduled, control is passed to the 
remote scheduling subroutine which transfers the request to the remote 
system-. 

PST Initialization 

PST storage is acquired from CICS/VS Storage Management and the storage 
address is saved in the assigned PST prefix. PST initialization 
consists of formatting the save area chains and storing the address of 
the assigned PST prefixo Control is passed to the PSB intent scheduling 
subroutine. 

PSB Intent Scheduling 

This subroutine determines the segment intent of the PSB being scheduled 
and ensures that no more than one task is scheduled to update the same 
segment type(s) in the same data base unless program isolation is 
active^ For retrieve sensitive only PSBs or update sensitive PSBs with 
program isolation active, a duplicate PSB is created if a prior task was 
scheduled with the same PSB. If the task cannot be scheduled, a CICS/VS 
SUSPEND is issued to suspend the task. If not in use, but retrieve 
sensitive only, the infuse indicator is set and control is passed to PSB 
initialization. If neither of the above is true, the PSB segment intent 
list entry must be scanned. If program isolation is not active and the 
PSB is not retrieve only sensitive, the PSB segment intent list entry 
must be spanned. 

The segment intent list for this PSB is located from the PSB directory 
entry. This list defines all segments in the data base(s) used by this 
PSB and also defines the PSB"s sensitivity to them. The segment intent 
list entry is compared to the segment intent list entries of all 
scheduled PSBs, If no intent conflict is detected, the PSB 
initialization subroutine is called. Otherwise a CICS/VS SUSPEND is 
issued for the task. Upon completion of a successful segment intent 
scan, the PSB initialization subroutine is called. 

If it is necessary to provide duplicate copy(s) of PSBs, this routine 
acquires storage for the copy and moves the original copy to it. 
Addresses in the duplicate are adjusted correspondingly and a duplicate 
PSB directory entry is created. The level table(s) are then reset and 
control passed to the PSB initialization subroutine. 



^ 
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PSB Initialization 

PSB initialization consists of inserting the SDBs in the PSB into the 
SDB chain. The PSB is located from its PSB directory entry , and the 
address of the PCB address list is stored in the CICS TCA, Each PCB is 
located and the JCB pointer is used to obtain the address of the start 
of the SDBs for that PCB (JCBSDBl). Each JCB is accessed and the SDB 
chain pointers in the SDB and the PSDB in the DMB are updated. This 
process continues for all SDBs defined in the PSB. 

The address of the assigned PST is obtained from the PST prefix and 
stored in the PSB. Using this address , the PSB directory entry address 
is stored in the PST. The "DL/I is scheduled" indicator in the PST 
prefix is set.. If the PSB indicates the user is update sensitive^ a 
call is made to the DL/I data base logger module (DLZRDBLO) to write an 
application program scheduling record (X'08"). Control is then returned 
to the calling routine. 

Scheduling 

A DL/I call initiates scheduling. The function code is 'PCB' and the 
call contains the name of the PSB to be executed. The call is passed to 
the online program request han<dler via the language interface module and 
a scheduling validity check is made. If the call is valid ^ the 
parameter list is checked for a User Interface Block (UIB) pointer 
parameter. If specified, a UIB >*ill be used instead of the CICS/VS TCA 
for returning return code and PCB address list information to the 
application program. Next, the task scheduling subroutine is called to 
schedule the PSB. Upon completion, control is returned to the 
application program through the program request handler and the language 
interface. If the call is invalid, a two byte error return code is 
stored in the UIB or CICS/VS TCA and control is returned directly to the 
application programo 

If the 'PCB" call is made to schedule the system interface, the password 
is tested against the user generated one in the nucleus and the 
interface is tested for availability. A PST and dummy DSG are acquired 
for the caller, the task is marked as a system task, and control is 
returned to the user„ 



DLZPRHOO - ONLINE PROGRAM REQUEST HANDLER 

DL/I online calls are made in the same format as batch calls except that 
CALLDLI is used instead of CALL for Assembler language. The user issues 
a call instruction, passing parameters in the call list, and provides a 
register save area address in register 13. Communication of the results 
of the call is also identical to the batch system. It should be noted 
that although the format of the call instruction for online is the same 
as in batch, storage used by DL/I to process the call (i.e., register 
save area, all data items in the call list, I/O area) must be acquired 
from CICS/VS dynamic storage due to the re--enterability requirements of 
application programs which run under CICS/VS. 

Xianguage Interface Module 

Although the language interface is not part of module DLZODP, it is 
involved in call processing. The language interface module is link- 
edited to each application program via the call instruction. The module 
has two entry points; one for Assembler, COBOL, and RPG II; and the 
other for PL/I. The first function performed at either entry point is 
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to save the user's registerso Then a language indicator is set, the 
entry point to the program request handler is acquired from the DOS/VS 
COMREGe and a branch is taken to the program request handler. 

Program Req u est Handler 

This routine is responsible for communication to and from the DL/I 
action modules and the user. It establishes the necessary table 
addressability for the action modules , and formats and validity checks 
the call list.. It also moves the requested data to the user's I/O area 
and returns control to the application program. 

Upon entry, if it is a scheduling call, the scheduling subroutine is 
entered. If not, addressability to the PST is established and the 
language indicator is set in the LIPARMS section of the PST. Next the 
user's call list is inspected to determine whether it is in the proper 
format. If not, the list is converted to the implicit direct format in 
an area provided in the PST. The address of the list is stored in. the 
PST. Then the call list is checked to ensure that all addresses are 
valid. If valid, and if the PSE is on the same system, the call is 
passed to the call analyzer „ Otherwise, if the PSB is on a remote 
system, control is passed to the remote data base call subroutine which 
transfers the call to the remote system. If the call is invalid, a 
return code is inserted in the UIB or TCA and control is returned to the 
user. 

The CL/I action modules process the call and return control to the 
program request handler through the call analyzer. A test is made to 
determine whether a pseudo-ABEND condition exists. If it does, a 
CICS/VS task ABEND macro is issued with an ABEND code indicating the 
reason- If an ABEND is not required, a test is made to determine 
whether the call requires data to be moved back to the user. The data 
is moved to the user's I/O area if required. The user's registers saved 
by the language interface are restored and control passed back to the 
calling application program- 

Processing of the system calls 'CMXT' , 'STRT', 'STOP', 'TSTR' , and 
"TSTP' is accomplished in the program request handler code. If these 
functions are identified in the call list a direct branch is taken to 
the appropriate routine. 

IWAIT Routine 

The IWAIT routine is entered from the DL/I buffer handler (DLZDBHOO) or 
from other modules whenever an I/O wait or resource enqueue wait must be 
issued. The following processing occurs: 

• Registers lU through 12 and 13 are saved. 

• Registers 12 and 13 are initialized with the CICS/VS CSA and 
currently dispatched TCA- 

• A CICS/VS WAIT to CICS/VS Task Control Management is issued. 

• Upon return, registers lU through 12 and 13 are restored. 

• Return is to the calling module via register lU. 
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DLZODPOl - TASK TERMINATION 

DL/I task teritiination is entered by the CICS/VS PCP when a user's task 
scheduled by DL/I returns through CICS/VS Program Management, issues a 
CICS/VS sync point , or when the application program issues a DL/I 'TERM" 
call. This routine is responsible for purging any buffers altered by 
this task, calling the data base logger to write the application program 
termination record (X'O?"), releasing any system resources owned by this 
task, and resuming tasks which were marked as not scheduled. 

Task Termination 

Task termin^ition first determines whether this task was scheduled to use 
a remote PSB. If it was, control is given to the remote termination 
call subroutine. This subroutine issues a CICS/VS sync point call which 
causes DL/I programs processing calls on behalf of the local application 
program to be terminated. Next, task termination determines whether 
this task was assigned a PST prefix. If not, this task must have been 
stall-purged by CICS/VS and was originally suspended by the task 
scheduling module. In this case the suspended count accumulator is 
decremented and the task"s TCA removed from the DL/I suspended task 
chain. Control is then returned to CICS/VS Program Management. If the 
task terminates abnormally, its DL/I control blocks are dumped by DFHDC. 

If this task was assigned a PST prefix, a test is made to determine 
whether the task was scheduled. If not, the task was stall-purged by 
CICS/VS. This means this task was suspended by a CICS/VS Storage 
Management attempt to acquire either PST or PSB storage. If it was due 
to PST storage acquisition, the assigned PST prefix is cleared and put 
back on the free chain and the system resource allocation routine is 
entered. If it was due to PSB storage acquisition, the PSB directory 
entry is cleared, PST storage is freed, and the PST prefix is inserted 
in the free chain, control is then passed to the system resource 
allocation routine. 

If the task was scheduled and active, normal task termination proceeds. 
First a DL/I internal 'TERM" call is issued to the call analyzer 
(DLZDLAOO). This call causes the analyzer to reset the level table(s) 
in the PSB. If update sensitive, the buffer handler (DLZDBHOO) is 
called to write out all buffers altered by this task. Next the PSB 
directory entry is tested for update sensitivity. If indicated, the 
data base logger (DLZRDBLO) is called to write the application program 
termination record (X'07"). If the task had update sensitivity, the PST 
prefixes are scanned and any waiting for scheduling because of segment 
intent conflict are "RESUMED'. 

Next the PSB directory entry is released. For update sensitivity PSBs , 
this involves resetting the "user scheduled" indicator. For retrieve 
only, a test is made to determine whether this was a duplicate PSB. If 
so, the storage acquired for the PSB is freed and the duplicate PSB 
directory entry is cleared. Control passes to the system resource 
allocation routine. 

If the system call interface is active the DDIR entries for the 
terminating PSB are checked for the waiting for close indicator. If the 
indicator is on and the use count of the DMB is now zero, the system 
task is resumed. 

System. Resource Allocation 

This routine is responsible for determining whether any tasks are 
waiting to he scheduled and, if so, for taking the proper action to 
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cause therr to be scheduled. First the DL/I suspended task counter is 
testedo If nonzero^ the first task on the DL/I suspend chain is located 
and a CICS/VS RESUME macro is issued. The suspend chain is then updated 
by reiroving the task®s TCA from it/ the suspended task counter is 
decreiTiented, and, if zero, the raaxiinuit! task indicator is reset. Next 
the CL/I task counter is decremented. If the task count is less than 
the current maximum task value, the current maximum task indicator is 
reset and PST prefixes which were "WAITING' due to this condition are 
•POSTED' complete. Control is then returned to the CICS/VS PCP. 



DLZOBP02 - DL/I NORMAL SYSTEM TERMINATION 



The following processing occurs prior to CICS/VS termination* 

• DL/I system termination (DLZODP02) is entered from the DL/I linkage 
module DLZSTPOO, as specified in the CICS/VS pre-termination 
processing list section of the program list table (PLT) . 

• The DL/I log DTF is located and a DOS/VS CLOSE is issued for the DL/I 
logo 

• DL/I system termination is re-entered by CICS/VS System Termination 
Program. 

• A DL/I CLOSE call is issued to the DL/I Open/Close module (DLZDLOqO) 
to close all data sets for all DMBs in the system. 

• Return is made to the CICS/VS via the DL/I linkage module. 



DLZODP03 - DL/I ABNORMAL SYSTEM TERMINATION 

The DL/I abnormal system termination routine is entered from CICS/VS 
when the DL/I partition is to be terminated abnormally. The following 
processing occurs: 

• The DL/I log DTF is located and a DOS/VS CLOSE is issued for the DL/I 
log, 

• The DL/I control blocks are dumped. 

• Return is made to the calling CICS/VS program. 



DLZERMSG - DL/I ONLINE MESSAGE WRITER 



The following processing occurs: 

• The DL/I error code is extracted from the active PST or from a 
parameter list pointed to by register 1. 

• CICS/VS storage is acquired. 

• The appropriate DL/I message is created and logged to the destination 
CSMT via CICS/VS Transient Data Management and to the operator's 
console. 

• Return is made to the calling routine. 
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If CICS/VS storage cannot be acquired or an error occurs while writing 
to transient data, an indicator is placed in the TCA and return is made 
to the calling routine. 



DLZOVSEX - VSAM EXCP EXIT PROCESSOR 



The EXCP exit processor receives control directly from VSAM after each 
SVC resulting from a GET or PUT call from the buffer handler. DL/I 
checks the ECE for completion of the I/O request. If the request is 
incomplete the CICS/VS environment is re-established and a CICS/VS task 
control wait is issued in behalf of the current task. If the ECB was 
previously posted or the event completion has caused the task to be 
removed from the wait condition, control is returned directly to VSAM 
via register 14. 
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DL/I FACILITY MODULES 



DLZELAOO - CALL ANALYZER 

The call analyzer module is used for initiation of all data base calls. 
Under norinal circumstances, it receives control from the DL/1 online 
program request handler (DLZPRHOO) in the CICS-DL/I region or from the 
batch application program request handler (DLZPRHBO), It receives 
control from application program control (DLZPCCOO) at termination of a 
DL/I batch partition or online task termination (DLZODPOl) in a CICS- 
DL/I region. 

For internal DL/I calls to update an index data base, this module 
(DLZDLAOO) receives control from the index maintenance module 
(DLZDXMTO). 

The call types handled by the call analyzer module can be divided into 
two groups: (1) normal data base calls, and (2) special control calls, 
which are sometimes referred to as "pseudo' calls. The special calls 
are GSCD, get SCD address; TERM, write all buffers altered by that user; 
and UNLD, write last records for simple HSAM, HSAM, simple HISAM, and 
HI SAM load or write all HDAM and HIDAM data base buffers altered by that 
user and close all data sets in the system. 

The primary responsibilities of the call analyzer are: 

• Test the first parameter in the call list for a valid four-character 
function and encode this into a one-byte function code. 

• Test the second parameter in the call list for a valid PCB address 
and store the PCE address in the PST. 

• Store the third parameter in the call list in the PST. This is the 
user's I/O area address. 

• Verify the format of all segment search arguments (SSAs) in the call 
list and fill in the corresponding level table entry for the SSA in 
the call. 

• DO required checking based on call type and SSAs. 

• Test for field level sensitivity when processing SSAs and set on bit 
if present. Call DLZCPYlO to map user's view to physical view if 
necessary. 

• Do sequence checking when loading a data base. 

• Pass control to the proper action module to process the call. 

If a data base call requires the VSAM control blocks or SAM DTF 
representing the files within a data base to be opened, the analyzer 
calls upon the DL/I open/close module (DLZDLOCO) to perform the data 
management open for all files which may be needed foi: that PCB. The 
DL/I open/close module is called when the UNLD call is received to close 
all DL/I data bases opened in the batch partition. 

During normal processing of the SSA, when an SDB has been located for 
the segm.ent, a test of the SDB will be made to determine if field level 
sensitivity has been specified (bit SDBFSB set on in field SDBXFL) . If 
it has, an indicator will be set in the JOB, signifying that at least 
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one segment has field level sensitivity (bit JCBFLS set on in field 
JCBLVT) • 

When processing a qualified SSA, a check is made to determine if field 
level sensitivity has been specified for the segment. If it has, the 
FSB chain is scanned to see if the field name exists. If the field name 
does not exist or if the FSB is not flagged as an allowable field, a 
return code of 'AK' (invalid field name in call) is stored in the PCB 
and return is made to the caller. 

If the field name is found and it is an allowable field , then 
qualification is set in the level table based on information in the FSB 
(qualification on data or key). 

When the Call Analyzer determines that at least one segment has field 
level sensitivity, it will no longer do the processing to determine the 
offset of the segment in the user's I/O area (entry in LEVUSEOF will not 
be initialized by the Call Analyzer). 

prior to calling the insert, replace, or retrieve (only if called on 
behalf of insert) action modules, if the field level sensitivity 
indicator has been set in the JCB, the Call Analyzer will exit to 
DLZCPYIO to map the user's view to the physical view* At this point, the 
field level sensitivity indicator in the JCB will be reset. Any error 
passback from DLZCPYIO will be detected and exit will be taken to the 
Program Request Handler. 

The field level sensitivity indicator will also be reset if an error is 
detected while processing the SSAs. 



control Blocks • DLZDLAOO 


PST 




PDIR 




PSB 




DDIR 




DME 




PCB 




JCB 




Level table 




SDB 




FDB 




FSB 




Reqister Contents 




Rl = 


PST address 


R13 = 


Save area address 


Ria = 


Return address 


R15 = 


Entry point address 


Interfaces - DLZDLAOO 



Receives control from DLZPCCOO, DLZODPOO, and DLZPRHBO. 

Passes control to DLZDLROO, DLZDLDOO, DLZDDLEO (DL/I action modules): 

These modules need not save the analyzer's registers. They can return 
to the analyzer's entry point plus an offset stored in the SCD. 

Call to DLZDLOCO • DL/I open/close: 
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PSTFNCTN has open function 
PSTDBPCB has address of the PCB 

Call to DLZDBHOO - buffer handler: 

PSTFNCTN is PSTPGUSR (X*07*) 

Call to DLZCPYIO -^ field level sensitivity copy 



DLZDLOCO - CPEN/CLOSE MODULE 

The function of module DLZDLOCO is to open and close the DL/I data bases 
in either the CICS online control region or the batch partition. DOS/VS 
open/close iriacros are used to open and close data sets. DLZDLOCO 
opens/closes VSAM ACBs for all data base organizations besides HSAM and 
simple HSAM^ where DTFs are used*. For simplicity the term ACB is used 
in the following description where ACB or DTF would be correct. For a 
HI SAM data base with all functions, except for PSTOCDCB, both the KSDS 
and ESDS are opened/closed. 

The PSTFNCTN byte in the PST determinejg the type of operation to be 
performed by DLZDLOCO. 

• PSTOCDCE (X"10") - Only one ACB is opened/closed. It is located by 
DSG address (PSTDSGA). 

• PSTOCPCB (X"02") - For PROCOPT = L or LS one data base is opened. 

For PRCCCPT ^ L or LS: 

All SDBs of that PCB are scanned and all referenced data bases are 
opened, that is, index data bases and logically related data bases 
are opened/closed with this call. 

• PSTOCDSG (X«40") - One or two (HISAM) data bases are opened/closed. 
The ACB is located by DSG address (PSTDSGA). 

• PSTOCALL (X"04") 

For open: 

All ACES specified for initial opening are opened (CICS online 
control region only) 

For close: 

All ACES in the system are closed. 

• PSTOCDMB (X*01*) • The ACBs of one DMB are opened/closed. The DMB 
directory address is passed in register 2. 

DLZDLOCO compares the following values specified in DBD generation with 
the VSAM catalog entries for a data base: 

• Control interval size 

• Key length (KSDS) 

• Relative key position (KSDS) 
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• Highest REA used in the data base based on the PROCOPT, For example , 
PROCOFT=L requires an empty data base (high RBA=0) , while a data base 
must contain data if PROCOPT=^L (high RBA>0), 

For HISAMr HIDAMr and HDAM data bases,, the first control interval of the 
VSAM ESDS is reserved for the DL/I control record. DLZDLOCO maintains 
this record. 

• If PRCCOPT=L or LS, space is acquired for one control interval and 
the DL/I control record is constructed. The buffer handler 
(DLZDBHOO) is called to write the DL/I control record. 

An open record ^ code X'2F'r is written to the log file whenever a data 
base is opened. If the open call is successful ^ bit zero (JCBOPEN) of 
the JCBORGN byte equals one (PCB call); and bit zero (PSTOCBAD) of the 
PSTFNCTN byte equals zero. 

All PSDBs of a DMB are scanned for variable length segments with the 
edit/compression routine* All edit/compression routines that have 
■INIT' specified are called after "open" and before "close" 

Register Contents 

Rl • PST address 

R2 - CDIR address if it is a close DMB call 

R13 - Save area address 

R14 • Return address 

R15 - Entry point address 



Control Blocks - DLZDLOCO 

• DL/I control record - DLZRECO 

• PSTFNCTN field of the PST: 

Bit Value Meaning 



1 


1 


Process DSG 


2 


1 


Open for load 


3 


1 


Process specific ACB 


4 





Close call 




1 


Open call 


5 


1 


Open/close all DMBs 


6 


1 


Open/close a PCB 


7 


1 


Open/close a DMB 



DLZDLDOQ -^ DELETE/REPLACE 

Thi^ module performs the logical actions involved in replacing or 
deleting segments in a DL/I data base for all organizations, except HSAM 
(which has no delete or replace). 

The replace function checks to ensure that the key field of the segment 
was not inadvertently altered and that the replace rules were not 
violated. If the segment to be replaced is indexed , this module 
interfaces with the DL/I index maintenance module (DLZDXMTO). 
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The first check made upon entry is a key check of the contents of the 
PCB key feedback area to the key of the segment in the user's I/O area. 
If there are any changes, a 'DA' status code results. Next the segment 
is retrieved and the sequence fields are checked for any changes. If 
any changes occurred, a "DA" status code again results. Then the 
remainder of the data is checked for changes. If there were no changes, 
a blank status code is returned. If there were changes, the data is 
replaced, 

If the segment to be replaced is in an HDAM or HIDAM data base and the 
segment is variable length, the segment and its prefix may be separated. 
The separation of data is determined by the min-byte value of DBDGEN and 
the current size of the segment. Also in this regard, if the segment 
was previously separated from its prefix prior to a replace call, the 
replace will attempt to rejoin data and prefix. 

The delete function for a HISAM data base reads the segment to be 
deleted. If the organization is simple HISAM, the buffer handler is 
called to issue a VSAM ERASE. Otherwise, the segment is deleted by 
setting the HISAM segment delete bit. In addition, if this is the root 
segment, the record delete bit is also set. 

The delete function for HDAM or HIDAM data bases includes a check to 
ensure that delete rules stated for the DMB will not be violated. If 
logically related segments with a physical delete rule exist in the data 
base within the physical hierarchy starting with the segment to be 
deleted, a scan is made of all the segments to ensure that they include 
no segment which has not been logically deleted. 

A scan of the data base from the point of deletion is performed. During 
this scan,^ each segment is accessed twice: once on the way 'down*, and 
again on the way **up". While scanning 'down*, any segment in a logical 
relationship is inspected to determine its eligibility for deletion and 
to terminate as many logical relationships as possible. In some cases 
(for example, the last logical child for a logical parent which has 
already been deleted through its physical path), the deletion of all, or 
a portion of, the logically related data base record is required. In 
thi3 case, the delete action is expanded to perform the total delete 
function (except for the checking) for the new data base record. Then 
the sqan of the original data base record is continued at the point of 
exit. 

When scanning "up", an interface with index maintenance (DLZDXMTO) is 
made if the segment is indexed. Physical pointers are adjusted to 
bypass any removable segments (HDAM or HIDAM segments which are no 
longer required) whose space is released by interfacing with the space 
management module, DLZDHDSO. For nonremovable segments (segments 
required to remain because of existing logical relationships), a logical 
delete bit is set to indicate the status of the segment. 

A work area is obtained from the DL/I buffer pool to maintain the 
concatenated key and position of segments in the data base record(s) 
being scanned during delete or for ca}.ls to index maintenance during 
replace. 



Delete/Replace Work Space Acquisition and the Work Space Prefix 

DLZDIEOO acquires space to build work area(s) from DLZDBHOO (buffer 
handler) via a PSTGBSPC call. The calculated minimum size required is 
indicated in PSTBYTNM. If the space is available, the buffer handler 
returns the address of the selected buffer in PSTDATA and its size in 
PSTWRKlo 
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The first section of the work space contains a prefix whose format and 
contents are described in Section 5, Imitiediately following is the work 
area containing information concerning the segment to be deleted (or the 
index source segment to be replaced) , its physical data base (HIDAM or 
HDAM) , and other segments in that data base record. 

If a second work area is needed because of logically related segments 
and the space remaining in the current work space is large enough, the 
next work area will be allocated in the same work space (buffer) 
immediately following the previous work area. Forward and backward 
chains are maintained. If the remaining space is not large enough, 
another buffer is obtained from the buffer handler and chained to and 
from the previous work space. 

Except in the case of an error condition, work areas are freed in the 
reverse order in which they were allocated. When the work area freed 
was the first one in the work space, the buffer is freed via a PSTFBSPC 
call to the buffer handler. 



Segment Delete codes 



Segment delete codes utilized in the second byte of the prefix of each 
DL/I segment: 

This segment has been deleted (HISAM only) . 
This data base record has been deleted (HISAM only). 
This segment has been processed by delete. 
This variable- length segment has its data separated 
from the prefix. 
Reserved 

This segment is no longer required by its physical parent. 
This segment is no longer required by its logical parent. 
This segment has been removed from its logical twin chain. 
This segment contains the separated data of a variable- 
length segment. 
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Interfaces - DLZDLDOO 



This module interfaces with the following modules: 

DLZDEHOO 
DLZDHDSO 
CLZRDELO 
DLZDXMTO 
DIZQUEFO 



Control Blocks - DLZDLDOO 

• Delete workspace prefix 

• Delete work area. 

Register contents at Entry 
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Rl Contains the address of the PST 
R13 points to the current save area 
R14 Contains the DL/I analyze call function 

module (BFSDLAOO) return point 
R15 Contains the module entry point 

Register Contents at Exit 

Rl Contains the PST address 

R13 points to the current save area 

R14 Contains the BL/I analyze call function 

module (DFSDLAOO) return point 
R15 Contains a return code (0) 

Register Contents on ABEND * in the SC D ABEND Save Area 

Rl *• PST address 

R2 * SCD address 

R3 - SDE address 

R4 • DMB address 

R5 - PSDB address 

R6/R10 Work registers 

Rll • Eqise - (subroutine CSECT) 

R12 - Ease (main CSECT) 

R13 - Current save area 

R14/R15 - Work registers 

DLZDDLEO - LOAD/INSERT MODULE 

The function of DLZDDLEO is to load HDAM, HIDAM, Simple HISAM, HISAMr 
Simple HSAMr and HSAM data bases (in batch only) and insert segments 
into HDAM, HIDAM, Simple HISAM, and HISAM data bases. 

DLZDDLEO is entered from the DL/I call analyzer (DLZDLAOO) on load 
requests for HIDAMr Simple HISAM, HISAM, HSAMr and Simple HSAN segments, 
HDAM dependent segments, and insert requests for Simple HISAM and HISAM 
roots. It is also entered from the retrieve module (DLZDLROO) on load 
requests for HDAM root segments, and insert requests for HDAM, HIDAM, 
and HISAM dependent segments. 

The module performs the following functions: 

A- HDAM/HIDAM load/insert - 

1 Normal segment: 

• positioning: retrieve positions for inserting and loading of 
HDAM roots. For all other loading, DLZDDLEO simulates retrieve 
positioning. 

• Space for new segment is acquired using tne space management 
module, DLZDHDSO. 

• The segment is moved from the user's I/O area to the buffer. 

• Prefix pointers are updated, 

• Actual write is performed by the buffer handler using VSAM. 

• Prefix pointers of twins and parents are updated- 
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• The data base logger (DLZRDBLO) is called to write the new 
segment and the updated prefixes. 

• If the segment is an index source segment, index maintenance 
(DLZDXMTO) is called. 

• Exit is to the call analyzer. 
2. Concatenated segment: 

• If the destination parent already exists, and the insert rule is 
physical or logical: same as normal segment. 

• If the destination parent exists and the insert rule is virtual: 
the logical child segment is inserted as for a normal segment, 
data of destination parent are replaced afterwards. 

• If the destination parent does not exist and the rule is not 
physical, the destination parent is inserted as for a normal 
segment; afterwards the logical child is inserted as a normal 
segment. 

E« HISAM and simple HISAM load^ 

• Main storage for a logical record for key sequenced data set 
(KSDS) and for entry sequenced data set (ESDS) is acquired from 
the tuffer handler. 

• The root and all dependent segments that fit into one logical 
record are written to the KSDS, using the buffer handler. The 
remaining dependent segments are moved to one or more records of 
the ESCS. 

• Pointers to those records are inserted. 
C^ HISAM and simple HISAM root insert 

• A key equal to or greater than the request is made to the buffer 
handler. If the key exists and the delete bit is flagged 
(HISAM), the space is reused; otherwise a II status code is 
returned. If the key does not exist, main storage is acquired 
from the buffer handler and the new record is built and then 
inserted by VSAM through the buffer handler. 

• old (if deleted) and new records are logged. 
D„ HISAM dependent segment insert 

• If the segment fits into the record for which retrieve (DLZDLROO) 
has positioned, it is inserted by shifting the segments beyond 
the insert point to the right. If the segment does not fit into 
the record, a new ESDS record is built. The segment and shifted 
data are inserted into the new record. If the shifted data does 
not fit into the record, a second new ESDS record is created. 

• pointers to the new records are created. 

• Old and new records are logged. 
E« HSAM and simple HSAM load 

• The I/O areas allocated by batch initialization are used to move 
the segments from the user area. PUT locate is executed, 
whenever one I/O area is filled. 



Licensed Material - Property of IBM 3-29 



Blocks and Tables -^ DLZDDLEO 

PST 

DDIR 

DMB 

PCB 

JCB 

Level table 

SDB 

FDE 

SCD 

Registers on Entry and to All Called Modules 

Rl = PST 



Interfaces - DLZDDLIO 

This irodule calls tl^e following modules: 

DLZRDBLO - Data base logger 

DLZDEHCO • Buffer handler 

DLZDHDSO • Space inanagenient 

DLZDXMTO - Index maintenance 

DLZQUEFO • Queuing Facility 



status Codes - DLZDDLEO 

II 
AC 
IX 
LB 



DLZDXMTO ^ INDEX JVIAINTENANCE 

The function of this module is to load • insert • delete the index 
pointer segment of a HIDAM data base and to load - insert • delete * 
replace the index pointer segment for secondary indexes of a HDAM or 
HIDAM data base« 

Abbreviations used throughout the module are: 

ISS Index source segment 

XDS Index target segment (indexed segment) 

XNS Index pointer segment (indexing segment) 

The following major functions are performed: 

ALL CALLS 

• Save PST information in XMAINT work area 

LOAD 
INSERT 

• Build index pointer segment in work area 

For primary indexes - take key from user I/O area. For secondary 
indexes - construct segment from SRCH, SUBSEQ and DDATA fields. For 
/CK fields use PCB-key feedback area or read parents of ISS using 
SDEPOSC or PP pointers. Call user suppression routine, if needed. 
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• Euild teirporary blocks. SDB, JCB, DSG 
INSERT 

• Euild call list and SSA 

• Call analyzer 

• Take next index relationship of this IBS 
LOAD 

• Open data tase, if necessary, or work data set 

• Call buffer handler to write index record or write work data set for 
secondary index 

• Take next index relationship of this ISS 
UNLD 

• Write FF-key record to all index data bases belonging to this data 
base 

DLET 

• Call buffer handler to get old ISS 

• construct the old index pointer segment 

• For /CK fields take CONCAT key from DLET work area 

• Call user exit routine, to check for suppression 

• Euild temporary blocks 

• Log POINTER CHANGE and DEL. BYTE CHANGE 

• Call buffer handler to change index 

• Take next index entry 
REPL 

• First part = DLET 

• Second part = ISRT 

ALL CALLS 

• Restore PST 

• Return to calling module 

Entries: 

Receives control from DLZDDLEO (load/insert) and DLZDLDOO 
(delete/replace) 

Register contents 

Rl = PST address 
R14 = Return address 
R15 = Start address 

PSTWRKl LSDB of ISS for ISRT, ASTR, REPL calls 
LSDB Of ROOT for UNLD CALL 
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PSBB Of ISS for DLFT call 
PSTFNCTN "AO" Delete 

*A1" Replace 

"A2* Insert 

"AS* Unload 
PSTBYTNM RBA Of index source segment 

Interface to called modules; 

!• CLZDLAOO (analyzer) 

Called for insert^ not load mode 

PSTIQPRM points to internal call list 
Segment name*X(keyvalue) is used as SSA 

2. ELZDEHOO (buffer handler) 

PSTFNCTN: PSTMSPUT load HIBAM index 

PSTBYLCT get index target segment again 
PSTSTLEQ get index pointer segment 
PSTPUTKY index of HIDAM data base 
PSTBFALT update index of HIDAM data base 

PSTBYTNW: RBA of segment 

or Pointer to key to be inserted 

3« ELZDLOCO (open/close) 

R2: Address of DDIR 

PSTFNCTN: PSTOCQPN + PSTQCLD + PSTOCDMB 

PSTOCOPN + PSTOCDMB 

PSTOCCLS + PSTOCDMB 

4„ DLZRDBLO (logger) 

PSTWRKl: DBLLGDLT logical delete 

DBLNDXC + DELCMC XMAINT chain maintenance 

PSTWRK2 2 Old segment code and old delete byte 
Old RBA pointer 

PSTOFFST: Offset to new segment code 
Offset to new RBA pointer 

PSTBYTNM: RBA Of record 

5« DLZDSEHO (work data set module) 

Is called at entry point - 12 to open work file. 
Return is to BALR if open not successful , 
to BALR + 4 if open successful. 

6« DLZQUEFO (queueing facility) 

Called to do any program isolation queueing necessary 

Exits; 

Back to calling module. 

control Blocks - DLZpXMTO 

• Index work area • DLZXMTWA 

• SSA for the XMAINT call to the analyzer. 
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DLZDLROO - RETRIEVE 

The DL/I retrieve module is responsible for retrieval of all segments, 
independent of physical data base organization. When an application 
program requests the retrieval of a segment, this module (DLZDLROO) 
gains control from the DL/I call analyzer, DLZDLAOO, The analyzer has 
validitychecked the parameters in the application program's retrieval 
request. The analyzer has also placed this parameter information for 
retrieval in the DL/I control blocks. 

Based upon this information, the retrieve module calls the DL/I buffer 
handler module, DLZDBHOO, which controls physical I/O operations, to 
read the block containing the desired segment. Once the desired block 
exists in the data base buffer pool, its presence is made known to the 
retrieve module. 

It is the responsibility of the retrieve module to "deblock" segments 
within the block. Once the desired segment is located, the retrieve 
module places the location and length of the segment in the PST control 
block associated with the application making the retrieve request and 
returns to the DL/I call analyzer. Once a particular segment within a 
data base is retrieved for a particular application program, "position" 
is established within the data base for the application program. This 
"position" is subsequently used to move sequentially through the data 
base if the application program issues GN and GNP calls. 

If the block containing the segment to be retrieved already exists in 
the data base buffer pool, the request from the retrieve module to the 
buffer handler results only in the address of the desired data being 
returned to the retrieve module. No physical I/O is performed. In the 
case of HISif^M, if a retrieve request involves inspection of several 
segments within a record, the retrieve module requests only the first of 
these from the buffer handler and finds the remaining segments itself, 
utilizing position information. Positioning information for each 
application program and each data base is maintained in the DL/I control 
blocks which are an extension of the PCB (that is, JCE, LEVVTAB, and 
LSDB). 

In addition to servicing all data base retrieval requests, the retrieve 
module performs "positioning" functions for all segment insertion. In 
this case, the retrieve module receives control from the DL/I call 
analyzer module on an insert call. Prior to the insertion of a new 
segment occurrence, DL/I must insure that the segment does not already 
exist in the data base. It is the responsibility of the retrieve module 
to retrieve the block where the segment to be inserted may already 
exist. If the segment does not already exist in the data base, the 
block retrieved is normally used for segment insertion. Once the 
desired physical block is retrieved and positioning for segment 
insertion within the block is established, control is passed to the DL/I 
load/insert module, DLZDDLEO. If the data base organization is Simple 
HSAM or HSAM, the retrieve module performs the I/O (Get/Put) rather than 
calling the buffer handler. 

HIDAM root retrieval by key (qualified GU, GN) , results in two buffer 
handling requests. The first retrieves the index segment as any HISAM 
root. The second uses the RBA of the HIDAM root in the index segment to 
get the corresponding root segment. The position of the index segment 
is saved in a special SDB. 

Retrieval of segments addressed by secondary indexes is performed in the 
same manner, as far as possible, as the retrieval of a HIDAM primary 
root segment. (The SDBs are generated so that the index looks like a 
primary index and the index target segment like a HIDAM primary root.) 
The most important differences are: 
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• The layout of tl^e index pointer segment is user dependent and is 
different from that of a primary index. 

• The sequence field of a secondary index is not necessarily part of 
the target segment and may be in a dependent segment. 

Variable length segments are handled by the routine VLRT which provides 
an exit to a user routine to handle any necessary data expansion after 
calling the normal buffer handler interface (SETL) . 

Retrieval of logically related segments requires special handling* The 
retrieved segment (the concatenated segment) consists of the logical 
child (that is the concatenated key and the intersection data) and the 
physical or logical parent (destination parent). Since the SDBs always 
reflect the user's view of the data base, the same program logic is used 
whether the segment to be concatenated to the logical child is a 
physical or a logical parent. The concatenated key of the destination 
parent is constructed using the physical or the logical parent pointer 
of the logical child and the physical parent pointer of the destination 
parento For ISPT calls the concatenated key in front of the input data 
is used to position on the destination parent. All positions on the 
physical path to the destination parent and on the twin chain of the 
destination parent are maintained. 

Command Codes Affectincf Retrieval 

D • The segment data is moved when the level table is updated and 
not at return to the analyzer. 

L • The segment skip routine is employed to skip to the last 
occurrence. 

T - The RBA specified in the SSA is moved to the next position 

pointer location in the appropriate SDB and an unqualified GN 
is performed. 

F - For a GN (GNP) call, the same logic is employed to retri^eve 
the first occurrence as for a GU call. 

Module Layout - DLZDLROO 

This module consists of 60 subroutines^ a main entry routine (DLZDLRO) , 
a main exit routine (DLZDLRl), and a general linkage and maintenance 
support routine (DLZKLNKD), each of which is preceded by a description 
in the form input ^ processing - output. The subroutines are linked 
using macro DLZRLNK and the following macros (refer to the comments in 
the DLZRLNK source program listing) : 

DLZRHDR - First macro of a subroutine; generates DSECTs, EQU, 
and module identification. 

DLZRTLR - Last macro of a subroutine. 

DLZRCLL * Generates code to transfer control to a 
subroutine using -DLZRLNK. 

DLZREXT • Generates code to return control to a calling 
subroutine using DLZRLNK. 

The module is supplied as eight files. The first seven , DLZDLRAO to 
DLZDLRGO, contain the subroutines and the eighth, DLZDLNKD, contains the 
linkage and maintenance support routine that is generated using the 
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macro DLZRLNK. The second file, DLZDLRAO, also contains the routines 
DLZDIRO and DLZDLRl. The distribution of the subroutines within the 
CSECTs contained in the files DLZDLRAO to DLZDLRGO is arbitrary and can 
be changed at will, necessitating only that the affected CSECTs be 
reassembled. 



Maintenance Support - DLZDLRQO 

The module DLZRLNKD contains facilities to dynamically dump control 
blocks and I/O buffer sections. The extent and frequency of the dumping 
is controlled by DLZRLNK macro parameters or control fields in the PST 
as described in the DLZRLNK source program listing- 

Interfaces - DLZDLRQO 

This module interfaces with the following modules: 

DLZDDLEO • Load/insert 
DLZDBHOO - Buffer handler 
DLZQUEFO • Queuing Facility 

Register Contents on Entry and Return 
RO = SCD 
Rl = PST 
R2 = PCB 

Register Contents During Execution 

RO = Work 

Rl = work 

R2 = PCB 

R3 = JCB 

R4 = LEVTAB 

R5 = SDB 

R6 = Segment address 

R7 = PST 

R8 = DSG part of JCB 

R9 = Byte or record location of SEGJM in data base 

Rll= Base register for linkage routine DLZRLNKD 

R12= Base register 

R13= Save area 

R1U= work 

R15= Work 



DLZDHDSO - HD SPACE MANAGEMENT 

Module DLZDHDSO allocates and maintains free space on direct access 
storage devices for storage of DL/I segments in the hierarchical direct 
organizations (HDAM and HIDAM). This space is managed through the use 
of free space elements (FSEs) in each block of each data set of a data 
base and a bit map. The bit map describes blocks that have at least one 
FSE which can contain the largest segment in the data set. There is one 
bit map per data set consisting of one or more blocks distributed 
equidistant over the data set. 
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Module DLZDHDSO consists of CSECTs which perform the following 
functions: 

DLZDHDOO contains the entry point for the combined module. It saves 
registers, initializes the work words in the PST, and 
branches to the appropriate modul.e. 

DLZGGSPO consists of a 'driver' for all subf unctions that may be 

invoked to find space. It uses one byte of the work space to 
control invocation. This CSECT also controls formatting for 
HDAM when the root anchor point is beyond the current end of 
the data set and formatting of new bit map blocks, if 
necessary. 

DLZFRSPO returns to free space the space occupied by a segment being 

deleted. It logs the deletion of the segment and updates the 
bit map if required. 

DLZRCHBO searches the block passed to it for an FSE that satisfies the 
current request. If none is found, control returns to the 
calling module. If the request can be satisfied, the return 
is directly to the invoker of DLZBHDSO. 

DLZRRHPO searches the DL/I buffer pool for a block in the range passed 
to it. If one is found, module DLZRCHBO is called to search 
it., If the block is rejected, the search continues to the 
end of the pool, and control is returned to DLZGGSPO. To 
avoid changing the position of buffers on the buffer pool use 
chain, online and batch are treated differently. In a batch 
environment, the buffer to be searched is passed to DLZRCHBO 
and may be used without being requested from the buffer 
handler. In a DL/I online environment, the buffer is passed 
to DLZRCHBO. If the request can be satisfied from it, the 
buffer is then requested from DLZDBHOO and again passed to 
DLZRCHBO for actual alteration. 

DLZRRHMO searches the bit map for a bit that is a one and is also in 
the specified range. If one is found, its corresponding 
block number is returned to DLZGTSPO. If all bits are zero, 
PSTNCSPC is returned to DLZGGSPO. The map search functions 
include creation and formatting of new bit map blocks, if 
necessary^ To further proximity of space for related 
segments, whenever possible, the search within a given range 
is done from the center to the outer ends of that range in 
both directions at the same time* 

DLZLMCLO calculates search limits for DLZGGSPO. A switch is used to 
determine the appropriate limit • track, control area, delta 
control areas. The limits of the previous scan are used to 
break the range into two subranges. This prevents the re* 
requesting of blocks that were rejected during earlier scans ^ 

DLZMPLCO determines the block number for the bit map block appropriate 
to the block number passed to it. It also determines the 
relative bit position in the bit map block of the block 
number passed to it. 

DLZMMUDO turns the appropriate bit ON or OFF according to the entry 
point involved. The log is also called to reflect the 
change. 

DLZDCIOO tests to see if the device containing the data base is 

actually an FBA device if it was specified as such , and, if 
it is, calculates the CIs per track and per cylinder and the 
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scan value in cylinders equivalent to the number of FBA 
blocks specified during DBD generation. These values are 
stored in the DMB for later use. 



Interfaces 



DLZDHDSO 



The following modules are called by DLZDHDSO : 



DLZDBHOO 
DLZRDBLO 



Buffer handler 
Data base logger 



Calling Sequence 



Rl 



PST address 

PSTDSGA 

PSTFNCTN 



P5 

Ria 

R15 



DSG address for appropriate file (all calls) 



PSTGTSPC 01 Get space 

PSTFRSPC 02 Free space 

PSTBTMPF 03 Turn off bit in bit map 

PSTGTRAP OU Get space close to root anchor 
point 
PSTREN RBN of segment to get space close to - PSTGTSPC 

RBN of segment to be deleted - PSTFRSPC 

BBBR • PSTGTRAP 

where EBB = relative block number, 

R = root anchor point number 
PSTBLKNM Block number whose bit is to be turned off - 

PSTBTMPF 
DMEPSEB Address of PSDB of subject segment 
Return point 
Entry point - DLZDHDSO 



On Return 
PSTRTCDE 

R15 
PSTRTCDE 



• PSTCALOK 



- PSTBTMPF 

- 

• 4 

• PSTGTDS 

- PSTNCSPC 

- PSTJOERR 
PSTNPLSP 



Space obtained; REN is in PSTRBN 

- PSTGTSPC, PSTGTRAP 

Space freed - PSTFRSPC 

Space obtained. After insert, call 

DLZDHDSO to adjust bit map,. 

For above return codes. 

Error has occurred; check PSTRTCDE 

The RBN to get close to does not exist 

DLZDHDSO could not find space in data 

set - PSTGTSPC, PSTGTRAP 

See DLZDBHOO 

See DLZDBHOO 



Licensed Material • Property of IBM 3-37 



DLZDBHOO - DB BUFFER HANDLER 



The primary functions of module DLZDBHOO are: 

!• To satisfy requests for buffer space for the processing of the data 
blocks of HD data bases. For Simple HISAM and HISAM data bases and 
for the index of HIDAM data bases , the VSAM buffer management is 
used. 

2« To issue I/O requests to VSAM whenever data must be read or written. 
Thus, the buffer handler provides an interface between the DL/I 
action modules and VSAM data sets. 

3» Whenever possible, to satisfy requests for data base segments and or 
records from data currently available in its buffer pool without 
issuing an I/O request. For this purpose, data is retained in the 
pool as^long as possible. Various features such as use chains and 
alteration flags are employed so that a centralized buffer 
management is facilitated for concurrent use by all application 
programs. 

The buffer handler satisfies the following requests as indicated by 
PSTFNCTN: 



For processing HDAM, HIDAM, or HISAM ESDS: 



Symbol 
Function 

PSTEYLCT 



Hex 
Function 

02 



Description 

If the request is issued for an HDAM or 
HIDAM data base, the buffer handler 
retrieves the control interval whose 
relative byte number is stored in 
PSTBYTNM,. The relative byte number in 
PSTBYTNM is first converted to a VSAM 
control interval number and an offset 
within the control interval. 



If this control interval is not in the 
buffer pool, buffer space is obtained in 
the buffer pool, the buffer which will be 
used is written, and the control interval 
is read into this buffer by a VSAM get 
call. 

If the requested control interval is 
already in the buffer pool, no read is 
done and the address of the buffer 
containing this control interval is 
passed back to the caller. 

If the request is issued for a HISAM ESDS 
data base, the buffer handler only issues 
the proper VSAM call for retrieving the 
record identified by the RBA which has 
been passed to the buffer handler in 
PSTBYTNM. 



PSTBKLCT 



01 The same as PSTBYLCT for an HDAM or HIDAM 
data base except that a VSAM control 
interval number is passed to the buffer 
handler in PStBLKNM. 
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PSTBYAIiT 06 A locate relative byte number (refer to 

PSTBYLCT) is done first and then the 
buffer which contains the control 
interval is marked as altered by this 
specific user. 

PSTBFALT 05 If the request has been issued for an 

HDAM or HIDAM data base, the buffer whose 
prefix address is stored in PSTBUFFA is 
marked altered • 

Ifr however, the request applies to a 
HISAM ESDS, the proper VSAM call is 
issued to write the record immediately, 

PSTGESPC 03 A buffer with the length specified in 

PSTBYTNM (possibly rounded to the next 
multiple of 512 bytes) is provided to the 
caller. 

PSTFESPC OU A buffer identified by a DMB number, ACB 

number, and control interval number in 
PSTDMBNM, PSTACBNM, and PSTBLKNM is 
freed, that is, it is marked empty and 
put on the bottom of the use chain, 

PSTPGUSR 07 All the buffers which have been modified 

by a specific user are written. All 
nonreusable buffers held by this user are 
marked empty and put to the bottom of the 
use chain. The bit representing this 
user is turned off in the user mask of 
all permanent write error blocks. 

If the purge request is on behalf of a 
CHKP function-call, all DMBs are scanned 
for index data bases and ENDREQs are 
issued to ensure that all VSAM buffers 
are written to the data bases, 

PSTEFMPT ^04 All buffers of one data base or certain 

buffers of a data base are marked empty 
and put on the bottom of the use chain. 

PSTWRITE 08 A logical record is added to a HISAM 

ESDS. 

For processing HIDAM index. Simple HISAM or HISAM KSDS: 

(a) Accessed by VSAM REA 



t' Symbol 

Function 

PSTBYLCT 


Hex 

Function 

02 


PSTBFALT 


05 


PSTERASE 


OA 



Description 

Retrieve the VSAM KSDS record by the RBA 

which is in PSTBYTNM. 

Write the VSAM KSDS record by the RBA 
which is in PSTBYTNM. 

Delete the VSAM KSDS record identified by 
the RBA which is in PSTBYTNM. 



(b) Accessed by kity 
Symbol H^x 
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Function Function Description 

PSlSTLEQ 09 Retrieve the VSAM KSDS record whose key 

is equal to or greater than the key whose 
address is stored in PSTBYTNM. 



PSTGETNX 


OB 


PSTSILEG 


OC 


PSTPUTKY 


OD 


PSTMSPUT 


OE 



Retrieve the next sequential VSAM KSDS 
record. 

Retrieve the first VSAM KSDS record in a 
data base. 

Insert a record by key directly into a 
VSAM KSDS. 

Insert a record which is in ascending key 
order into a VSAM K3DS. 

The buffers which are used for satisfying these requests are provided by 
VSAM buffer manageir.ent. The buffer handler provides VSAM control blocks 
(ACE, EXLST, and RPL) to VSAM data managenient when issuing the required 
VSAM action macro. 

The module DLZDEHOO consists of three CSECTs: 

DLZDBHOO Contains the code for the functions 

• PSTBYLCT 

• PSTBKLCT 

• PSTBYALT 

• PSTBFALT 

• PSTGBSPC 

• Maintenance of write chain and use chain 

DLZDBH02 Contains the code for the functions 

• PSTSTLEQ PSTMSPUT 

• PSTGETNX PSTERASE 

• PSTSTLBG PSTWFITE 

• PSTPUTKY 

Additionally, this CSECT contains the code required for 
preparing and issuing of VSAM calls and for processing 
feedback information by VSAM. 

DLZDBH03 Contains code for the functions 

• PSTFBSPC 

• PSTBFMPT 

• PSTPGUSR 

In addition, this CSECT contains the subroutines for providing an 
enqueue/dequeue function. 

Write Chain 

The new control intervals of a HIDT^ or HDAM data base are chained 
together on a write chain in ascending order of their control interval 
numbers. If one of the buffers on the write chain has to be written, 
all buffers on the chain are written. 

There is a write chain for every data base. It is maintained by storing 
the prefix numbers of the prefixes of the next higher and the next lower 
buffers in bytes 18 and 19 of the prefix. A bit switch in byte 7 of the 
prefix (X'80*) is on if a buffer is on a write chain. 



use Chain 
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All buffers are chained together in the order of their usage. This use 
chain is physically separated from the buffer prefixes and consists of 
one-byte elements containing relative numbers of prefixes. The order of 
the buffers on the use chain is indicated by the physical order of these 
use chain elements. 

There is one use chain area per subpool. Each use chain area has a 
maximum of 32 entries. The maintenance of the use chain involves 
putting a use chain element on the bottom or on the top of the use chain 
as follows. The contents of the use chain element which is to be moved 
are saved. Then all use chain elements located behind the element to be 
put on top, or located before the element to be put on the bottom, are 
moved to the address which is one byte lower than the load address (or 
one byte higher if an element is placed at the bottom). The saved 
element is then stored at the top or the bottom of the chain. 

ENQ/DEQ Subroutines 

Since transactions in an online environment may be processed in multi* 
thread mode, the buffer handler may have to synchronize and/or delay 
requests for buffers and/or buffer space. This is accomplished in two 
subroutines which perform ENQ/DEQ type functions and an interlock check. 
The following fields are used by the ENQ/DEQ routine: 



Function 



Label 



Control block 



ENQ/DEQ existing control 
interval (CI) ID 

ENQ/DEQ pending CI ID 



ENQ/DEQ subpool 



ENQ/DEQ matrix 



EFFRPST Buffer prefix 

PPSTEXCI PST prefix 

EFFRNPST Buffer prefix 

PPSTPECI PST prefix 

PPSTCHAI PST prefix 

SUBNQFI Subpool information table 

SUBNQLA Subpool information table 

PPSTSUPO PST prefix 

BFPLPSIL Buffer pool prefix 

EFPLFSIF Buffer pool prefix 

BFPLPSIL Buffer pool prefix 

PPSTMATR PST prefix 



For interlock detection, the ENQ/DEQ routines use the contents of 
the following buffer pool prefix fields: 



EFPLINMA 
EFPLINWl 
EFPLINW2 



interlock detection matrix 
work areas 



The ENQ/DEQ routines use the following fields in the buffer pool 
prefix as work space: 

EFPLNQWl 
EFPLNQW2 

Normally, the resources to be enqueued are the existing contents of a 
buffer (existing CI ID) or planned contents of a buffer (pending CI ID), 
Under certain circumstances, other resources may be enqueued. 

Enqueuing of a resource consists of the following steps. 

If the resource is available: 



Licensed Material -^ Property of IBM 3-41 



la Store the PST ID into a field of the resource reserved for this 
purpose (that is, BFFRPST, EFFRNPST, SUBNQFl, BFLPSIF) . 

2« Store the resource ID (for example, the buffer number) into a field 
in the PST reserved for this purpose (that is, PPSTEXCI, PPSTPECI, 
PPSTSUPC, PPSTMATR), 

3„ Indicate successful ENQ with a return code of 4 and return to 
caller. 

If the resource is not available: 

1« Find a position for the current PST in the interlock detection 
matrix. 

2^ Indicate by an appropriate entry that this PST is waiting and for 
which task. 

3« Check whether this waiting would cause an interlock. 

4- If no interlock possible: 

a. Chain with appropriate chain fields the current PST behind the 
last PST already waiting for this resource. 

b. Return with a return code of 8 to indicate that a wait condition 
exists. 

5« If an interlock would occur if the current PST were to attempt to 
wait on this resource: 

a. Remove the entry made in 2 above from the interlock detection 
matrix. 

b. Indicate with a return code of 12 that an interlock would 
occur and return. 

Dequeuing of a resource consists of the following steps. 

1« Remove the resource ID from the appropriate field in the current PST. 

2« Rem.ove the PST ID from the appropriate field in the resource. 

3« If the PST chain fields indicate that no other PST was waiting on 
this resource, return to caller. 

4-, If another PST was waiting on this resource: 

a. Move the waiting PST ID into the resource and remove the 
corresponding wait indication from the interlock detection 
matrix. 

b. post the waiting PSTs and unchain the current PST. 

c- If, because of 4, a, certain rows and columns in the interlock 
detection matrix are free now, make these available for use by 
other PSTs and post those (see description of action taken on 
pseudo-interlock conditions). 

d. Return to caller. 

For performance reasons, resources contain, in addition to the owning 
PST's ID, the ID of the last PST in the wait chain for this resource. 
These IDs are also maintained by the ENQ/DEQ routines. 
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The interlock detection matrix consists of a pair of eight-bit matrices. 
The first bit matrix indicates for up to eight PSTs which PST is waiting 
on which other PST, Rows and columns are dynamically allocated to PSTs 
as required, A one-bit in the appropriate row and column indicates a 
wait condition. The second bit matrix is the transpose of the first. 
An imminent interlock is detected by some simple logical operations 
executed against those two matrices. In the event that eight PSTs are 
occupying this matrix when further PSTs request service involving a wait 
condition r a code of 16, indicating pseudo-interlock, is returned and no 
enqueuing takes place. 

The following types of ENQ requests may occur: 

ENQ existing CI ID When a task either wants to write a buffer or wants 

to get posted when reading into or writing a buffer 
is finished. 

ENQ pending CI ID When a task wants to reuse a buffer in the buffer 

pool or when a task wants to get posted when the 
creation of a pending (i.e., new) CI is finished. 

ENQ subpcol When there is currently no buffer prefix in a subpool 

allowing a pending CI ID, 

ENQ matrix When a task wants to ENQ on a resource currently held 

by another task and no free row/column in the 
interlock detection matrix is available. 

The following action is taken by the main routine of the buffer handler 
on a return code (RC) indicating nonsuccessf ul ENQ. 

condition RC Issue 

Wait 8 Issue IWAIT macro. 

Interlock 12 Dequeue all resources held by this PST and retry 

the current DL/I request. 

Pseudo 16 Dequeue all resources held by this PST and 

enqueue on interlock detection matrix. This 
causes a wait condition. Issue IWAIT. Upon 
post, dequeue matrix and retry current DL/I 
request. 
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Control Blocks - DLZDBHOO 

PST 

PPST 

EEIR 

DME 

BSG 

SCD 

EFPL 

EFFR 

SEIF 

Interfaces - CLZDEHOO 

DLZDEHOO uses the PST for cornmunication from and to the calling modules 
and for work space- The DSG is used to obtain the DMB number and ACB 
number of the data set which applies during a request. The address of 
the buffer pool prefix is obtained from the SCD. The address of the 
buffer prefix area is obtained from the buffer pool prefix. VSAM is 
invoked for all I/O. 

In order to make sure that writing of log information is always ahead of 
updating a data base, the buffer handler may branch to a specific entry 
point of DLZRDBLO or DLZRDBLl. (Refer to the description in the 
paragraph about DLZRDBLO and DLZRDBLl.) 

DLZDEHOO issues the RELPAG macro for buffers that are marked empty. 



H 
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Buffer Handler Functions and Required Fields 

The following chart illustrates which fields must be supplied to the 
buffer handler (input) for each specific function and which fields are 
filled in by the buffer handler (output) on completion of the function. 

1« Function used to access a HIDAM or HDAM data base 



Function 



Input 



Field 



Contents 



Output 



Field 



Contents 



PSTBYLCT 



PSTBKLCT 

PSTBYALT 
PSTBFALT 

PSTGBSPC 

PSTFBSPC/PSTBFMPT 



PSTPGUSR 



PSTBYTNM 



PSTBLKNW 



PSTBUFFA 



PSTBYTNM 



PSTDMBNM 
PSTACBNM 
PSTBLKNM 



PSTDMBNM 
PSTACBNM 
PSTBLKNM 
PPSTID 



Relative byte 
number of desired 
segment 



PSTDATA 



PSTOFFST 



RBA of desired 
segment 

See PSTBYLCT 

Address of buffer 
prefix which is to 
be marked altered 

Number of desired 
bytes 



DMB 
ACB 
Control interval RBA 

All or part of 
buffer identifier 
may be passed. 

DMB 

ACB 

Control interval RBA 

User identifier 

Any or all of these 
may be passed. 



PSTDATA 



PSTDATA 



Core 

address of 
desired 
segment 

Offset of 

segment 

from 

beginning 

of control 

interval 

Core address 
of desired 
segment 

see PSTBYLCT 



Address of 

provided 

buffer 
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Functions used to access a HISAM ESDS 



Function 


Input 


Output 


Field 


Contents 


Field 


Contents 


PSTBYLCT 

PSTBFALT 
PSTWRITE 


PSTBYTNM 

PSTBYTNH 
PSTDATA 

PSTBUFFA 


HBA of the logical 
record to be read 

RBA of the logical 
record to be written 

Address of work area 
containing the logical 
record 

Prefix address 


PSTDATA 
PSTBLKNM 


Address of the 
record within 
the buffer 

RBA of the record 

added to the ESDS 
as calculated by 
VSAM 



3., Functions used to access a KSDS by key (Simple HISAM, HISAM or HIDAM 
index) 



Function 


Input 


Output 


Field 


Contents 


Field 


Contents 


PSTSTLEQ 


PSTBYTNFi 


Address of the field 
which contains search 
argument 


PSTBYTNM 
PSTDATA 


RBA of the logical 
record retrieved 
Core address of 
record 


PSTSTLBG 






PSTBYTNM 
PSTDATA 


RBA of the logical 
record retrieved 
Core address of 
record 


PSTGETNX 






PSTBYTNM 
PSTDATA 


RBA of the logical 
record retrieved 
Core address of 
record 


PSTPUTKY 


PSTDATA 
PETBUFFA 


Address of work area 
containing the logical 
record 

Prefix address 






PSTMSPUT 


PSTDATA 
PSTBUFFA 


Address of work area 
containing the logical 
record 

Prefix address 
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Functions used to access a KSDS by RBA (HISAM or HIDAM index) 



Function 


Input 


Output 


Field 


Contents 


Field 


Contents 


PSTBYLCT 
PSTBFALT 

PSTERASE 


PSTBYTNM 

PSTBYTNM 

PSTDATA 

PSTBYTNM 


IIBA of the logical 
record to be retrieved 

RBA of the logical 
record to be written 

Address of the record 
within the buffer 

BBA of the logical 
record to be erased 


PSTDATA 


Address of the 
record within the 
buffer 



Calling Sequence 

RO • SCD address 

Rl • PST address 

R14 • Return address to caller 

R15 - Address of DLZBBHOO 

Fields Required (Independent of Function) 

PSTFNCIN Hexadecimal code for desired function 



PSTDSGA 



PSIELKNM 



PSTDJyiBNM 



PSTACBNM 



PSTBYTNM 



PSTEUFFA 

DSGDMENO 
BSGDCBNO 
On Return 



R15 



Address of associated DSG needed for: 
PSTBKLCT, PSTBYALT 



PSTBYLCT^ 



Identification of desired block needed for: 
PSTBKLCT, PSTBFALT, PSTFBSPC 

Number of associated DMB needed for: PSTBKLCT, 
PSTBFALT, PSTFBSPC, PSTGBSPC 

Nuirber of associated ACB needed for: PSTBKLCT, 
PSTBFALT, PSTFBSPC g PSTGBSPC 



PSTBYLCT/PSTEYALT 



relative byte address of desired 
segment - relative record number 
of HISAM ESDS (bigh-order byte = 
X"80') 



PSTGBSPC - fullword size of requested space 

Address of buffer prefix for block to be marked 
"altered' - PSTBFALT 

DMB number of the referenced data base 

ACE number of the referenced data set 



Request satisfied 

Warning or error condition 
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Fields Returned (Independent, of Function) 



PSTOFFST 
PSTDWENM 
PSTACBNM 
PSTDATA 

PSTBUFFA 
PSTNUMRO 
PSTNUMWT 
PSTCLRWT 

PSTRICCE 



Offset from PSTDATA back to first byte of block 

DMB number 

ACB number 

Address of first byte of requested segment^ record , 
or space 

Address of buffer prefix 

Number of reads done during this call 

Number of writes done during this call 



Bit This caller waited during request 
1-8 Reserved 



Return 
Code Hex 
Function Function Description 

PSTCLOK 00 No error occurred during this request. 

PSTGTDS 04 Record, CI, or segment requested is more 

than one CI beyond the end of the data 
set - returned on PSTBKLCT, PSTBYLCT, 
PSTBYALT 

PSTIOERR 08 Requested CI, record, or segment could 

not be read successfully on a PSTBKLCT, 
PSTBYLCT, or PSTBYALT call or could not 
be written successfully on a PSTPUTKY, 
PSTMSPUT, PSTWRITE, or PSTBFALT call. 

PSTNCSPC OC An out of space condition occurred on the 

data set DASD while processing this 
request. 

PSTBDCAL 10 The byte at PSTFNCTN is not a valid 

function or the DMB/ACB/BLKID in the PST 
do not match corresponding fields pointed 
to in PSTEUFFA for a PSTBFALT call. 

PSTNOTFD 14 A PSTSTLEQ call has been issued for a 

record whose key is higher than the 
highest key in the data set. 

PSTNWBLK 18 The requested CI, record, or segment will 

go in the CI, one greater than the 
current end of the data set. Space has 
been allocated in the pool to hold the 
new CI,. The address is at PSTDATA. 

PSTNPLSP IC The pool does not contain enough space to 

satisfy the request,. 

PSTWROSI 20 A request (GBSPC) was issued for a buffer 

size which exceeds the highest buffer 
size handled by any subpool. 
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PSTENDDA 24 The end of data set has been reached on a 

PSTGETNX call. 

PSTBYEND 28 A request h^s been issued with a key or 

RBA higher than the highest key or RBA in 
the data set. 



PSTEOD 



PSTINLD 



2C 



34 



End of data set has been reached on a 
request by DLZDLOCO, 

Invalid request during data set loading. 



DLZRDBLU 



DB LOGGER 



The data base logger module logs the modifications made to a data base. 
These data base log records are written to the system log. This module 
is invoked by several of the DL/I modules associated with data base 
modifications. 

The logging of data base modifications, additions, and deletions is done 
on a physical basis to facilitate a quick recovery procedure. Only 
calls that actually cause a change to be made to a data base are logged. 
Two sets of information are logged for each modification - a before set 
and an after set. 

The before information is that required by the data base backout 
utility. It is used to back out a partially completed update series and 
to restore a data base to some prior point in time. 

The after information is that required by the data base recovery 
routines to restore the data base from a previous backup copy. 

There are five basic types of data base log records. 

1« POINTER maintenance record 

When a segment is deleted or inserted and it causes a change in any 
of the pointers in other segments, each pointer is logged separately 
as a POINTER maintenance record. A POINTER maintenance record is 
indicated by bits 1, 2, and 3 of the DL0GFLG2 field of the log 
record being set to zero. 

2.. PHYSICAL INSERT record 

When a segment is physically added to the data base, a PHYSICAL 
INSERT record is written. This type of record is indicated by a one 
in bit 1 of the DL0GFLG2 field. 

3« PHYSICAL DELETE record 

When a segment is physically removed from the data base, a PHYSICAL 
DELETE record is written^ This type of record is indicated by a one 
in bit 2 of the DL0GFLG2 field. 

4« PHYSICAL REPLACE record 

When a segment in a data base is modified, a PHYSICAL REPLACE record 
is written. This type of record is indicated by a one in bit 3 of 
the DL0GFLG2 field. 

5« LOGICAL DELETE record 

When a DLET call is issued but the segment is not physically removed 
from the data base, a LOGICAL DELETE record is written. Only the 
segment code and delete bytes are logged. A logical delete record 
is indicated by bits 1 and 2 of the DL0GFLG2 field being set to a 
one. 
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In addition to data base log records, the data base logger module also 
uses: 

• Application program termination records 

• Application program scheduling records 

• File open records 

• Checkpoint records 

The layout for these records is shown in Section 5 of this manual. 

Record types 1, 2/ 3, and 5 contain the before and after information in 
the same record and have a log code of X'50*. Type U requires two 
recordSo The after record has a log code of X"50'; the before record 
has a log code of X"51'a Additionally, if a physical insert reuses 
space of a deleted record, log records X'50" and X'51* are written. 

If the change is an insert or a delete, the before and after are part of 
the same record. On an insert, the new segment, including the prefix, 
is logged as the change data« On a delete, the old segment and prefix 
are the change data. In HD, both insert and delete cause changes to the 
free space elements (FSEs) within a block. The new FSEs and their 
offsets are logged following the change data and a count of the changes 
is placed in bits 4 through 7 of the DLOGFLGl field. 

The information needed to create the log record is retrieved from the 
various DI/I blocks- A small amount of additional information is passed 
as parameters from the DL/I action modules. 

The data base log tape format is undefined records (UNDEF). The block 
size is 1024 bytes. Maximum record length is 512 bytes. If a segment 
cannot be logged into one record, it is internally spanned over two or 
more log records. The first record is logged with a data length 
adjusted to match the data it contains. The offset for the second 
record is incremented by the length of the first, and the second is 
written as a separate segment. The adjusting of data length and offset 
continues until the entire segment is written. 

The data base disk log uses VSAM with a CI size of 1024, The user 
buffer facility is used to ensure that the log records are written 
immediately. The disk log record format is compatible with the tape log 
record. 



Control Blocks - DLZRDBLO 

• Eata base log record 

• Application program termination record 

• Application program scheduling record 

• File open records 

Register Contents 

Rl • PST address 

R13 - Save area 

R14 • Return address 

R15 * Entry point address. 
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100 




110 




111 


4 


1 


5 







1 


6 


1 


7 


1 
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PSTWRKl • 


Physi< 



High-order byte of PSTWRKl field in PST: 

Bit Value Definition 

Index maintenance call 

Chain maintenance call 

Physical replace 

Physical delete 

Physical insert 

Logical delete 

Reserved 

Last change for this user call 

One FSE (physical delete or insert) 

Two FSEs 

Old copy of physical replace 

New block log call 

No data • end of user call 

Physical SDB address (except new block call) 
Data length (low half word) if new block call 

PSTWRK2r PSTWRK3^ PSTWRKU - Old data on pointer maintenance and 

logical delete calls. FSE data on physical insert and 
delete calls. 

Before a data base block is updated (that is^ before the buffer handler 
issues the put for an updated block) , the associated log information is 
first written to the log tape or disk in the following manner. 

After issuing a put to write a log block to the log tape or disk, the 
log module updates the count of written log blocks in the field 
SCDLOCOU. 

When the log module processes a log call^ in which a data base buffer is 
involved, the current count of written log records is stored from 
SCDLOCOU into byte 7 of the buffer prefix in the case of HD, or into the 
field DMBACBLC in the ACB extension in the case of HISAM and HIDAM 
index. 

Before issuing any put for updating a data base block, the buffer 
handler compares the value stored in the buffer prefix (HD) or in the 
ACB extension (HISAM, HIDAM INDEX) with the current value in SCDLOCOU. 
If the two values ar^ unequal, the log information associated with the 
data base update has already been written out. If the two values, 
however, are equal, the buffer handler branches to entry point WRIAHEAD 
of CLZRDBLO to force the current contents of the log I/O area to be 
written out immediately. If, however, asynchronous logging was 
requested by the user, the count comparison is bypassed, that is, no 
"write ahead" logging takes place. 



Logging in the Online System 

In the online system the put for the log blocks is issued in a separate, 
asynchronous subtask, which is attached at system initialization time. 
This subtask is a separate CSECT within the log module DLZRDBLO. 

The purpose for this is to avoid losing tasks when the end of volume 
condition is encountered on the log tape. 
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The comniunication between the asynchronous log subtask, the logger, and 
the EL/I online nucleus (DLZODP) is achieved by using three ECBs as 
follows: 

1« Systeir ECE (SCDESECB, in SCD extension), which is used for the 
comitiunication between the log module (DLZRDBLO) and DLZODPOO. 

2« log I/O ECB (SCDELECB, in the SCD extension) , which is used for the 
comrnunication between the log module and the asynchronous log 
subtask. 

3*. Private ECB (fullword in the log subtask CSECT) , which is used for 
the communication between the asynchronous log subtask anc( the log 
module during the end of the I/O operation that was initiated by the 
log subtask. 

Figure 3-2 shows the events which take place when a PUT for a log block 
becomes necessary in an online environment. 
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Logger 
DLZRDBLO 



1. Lock System ECB 

2. Unpost Priv. ECB 

3. Post Log I/O ECB 

4. IWAIT on Priv. ECB 



10. Post System ECB 




Asynchronous Log Subtask 
ONLLOGWR (CSECT Name) 



Waiting 

on Log I/O ECB 



5. Prepare PUT 

6. Issue PUT 

7. Post Priv. ECB 



1 8. Unpost Log I/O ECB 



^i$i$^$$$^$^$^^^^^m^^m^^ 



Wait on 
Log I/O ECB 



The relationship between all modules involved in the asynchronous log 
writing is as follows: 



IDLZODPOO 

1 PRH 

1 Schedule Rout 

1 TERMIN.ROut 

1 MESSAGE Rout 

I IWAIT RQUt 

1 EXCPAD Rout 

1 ~^— — — * ^-— - 

1 [Checks system 
1 lECE, if LOG 
1 1 suttask is 
1 1 active: 
1 System |1 Before a 
|ECE 1 call is pro- 
1 1 cessed 
1 1 (PRH bran-^ 
1 1 ches to 
1 1 analyzer) 
1 |2 Mhen a log 
1 1 request will 
1 1 be issued 
1 |3 Before 
1 1 branching 
1 1 back into a 
1 1 task after 
[ 1 control was 
1 1 given up 


jDLZOLIOO IDLZRDBLO jONLLOGWR | 
1 1 II 
1 1 1 1 
1 1 1 
1 1 1 1 
1 1 1 1 
1 1 1 1 

|When PUT has to| | 
|be issued, | | 
junpost system | | 
|ECB 1 1 
1 1 1 
1 1 i 

1 1 1 

1 1 1 
t 1 1 

I 1 1 
{After log sub- | \ 
{task is 1 1 
{finished, post j ( 
(system ECB { j 

II 1 
1 i 1 
1 1 1 
1 1 1 
1 1 1 


|Log 1 
|I/C tCBJ 

1 Private! 
JECB 1 


Attach asyn- {When PUT has (Waiting on log ( 
chronous log (to be issued, (I/O ECB { 
subtask [post log I/O ( •— j 
{ECB, get log (After put is ( 
(subtask started (finished, un- ( 
\ (post log I/O ( 
( (ECB ( 

(When put has to (After put, [ 
(be issued, lock( posts private ( 
(private ECB (ECB ( 
( (I/O is active)! ( 
( IWAIT on ( ( 
(private ECB ( ( 



DLZRBELl - CICS JOURNAL LGGGER 



Logging in the online systiiro can also be done by using the journaling 
feature of CICS. That means the DL/I log information as described about 
module DL2RBBI.0 will g6 on the same file as any CICS journal 
information. 



This is possible because CICS uses different journal record IDs than 
DL/I (DL/I uses X'OT\ X'OS\ X«2F', X'50', X«51M. Any DL/I utility 
which use^ a journal tape will check the record ID and process only 
those records, which have record IDs used by DL/I. 

The general structure of DL/I log records, CICS jourhal records and CICS 
journal blocks is shown in Figures 3-3, 3-4, and 3-5, respectively. 



^ 
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REC. 
ID 



CONTINUED ACCORDING TO DSECT 



Figure 3-3« DL/I Log Record 



SYSTEM PREFIX 


USER 
PREFIX 


JOURNALLED 
DATA 


LL bb 


REC. 
ID 


... 



2 4 

Figure 3-4. CIGS Journal Record 



LL bb 



CICS/VS LABEL RECORD 



ANY COMBINATION 



OF CICS/VS JOURNAL RECORDS AND 



DL/I LOG RECORDS 



Figure 3-5« Layout of a Journal Block 



If the user requests logging by CICS journaling (UPSI bits 6 and 7=0), 
DLZOLIOO loads module DLZRDBLl instead of the standard log module 
DLZRDELO« This module provides the following services: 

• Build and write open records for each data base that has been opened, 
DFHJC 1YPE=WRITE is issued to CICS. 



Build and write I6g records on request by the action modules. 
lYPE^WRIIE is issued. 



DFHJC 



write log records built by the sched/term. routine, 
is issued. 



DFHJC TYPE=WRITE 



• Initiate a physical put to thfe journal tape on request of the buffer 
handler- DFHJC T'XPE^WAI'I is issued. 

Before a journal call is issued to CiCS, DLZRBBLl checks if the task 
which is going to write a journal record already owns a JCA. If it does 
not, a GET JCA tall is issued prior to issuing the DFHJC call. 

Since DLZRDELi is not reentrant, no task can be allowed to enter this 
module while log I/O is being processed. 

DLZRDELI unposts an ECE (SCCESECB) prior to any physical I/O. In 
various parts of DLZODP this ECB is checked, and, if it is locked, a 
CICS wait is issued before control is passed to any action module. 

When log informlitioh is written by using CICS journaling, t:he writing of 
log infbriration is always ahead of updating the associated data base 
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blocks- The scheme used is the same as with standard logging, the only 
difference being that the value for the number of written journal blocks 
(CICS ECN) is not manipulated by the log module but is taken out of the 
JCT. 

Control Blocks Addressed 

• Data base log record 

• Application program termination record 

• Application program scheduling record 

• File open record 



DLZQUEFO - QUEUING FACILITY 

The DL/I queuing facility module provides resource contention control 
exclusively for the requirements of program isolation (PI) . 

Program isolation supports resource contention control at the segment 
level (fcr HDAM/HICAM data bases) and at the record level (for HISAM 
data base). Module DLZQUEFO provides the control through 
enqueue/dequeue mechanisms using a unique 7-byte resource identifier: 

Bytes I-** * a relative byte address (RBA) associated with the 
resource 

Bytes 5-6 * the DMB number 

Byte 7 • the ACB number 

The RBAs used are; 

For segment level resources - RBA of the segment 

For record level resources - RBA+1 of the root segment 

For variable length segments where data separation has occurred , the 
segment is considered a single entity with an ID based on the RBA of the 
prefix. 

The queuing facility module will automatically update the RBA portion of 
the resource ID in the event of a VSAM CI or CA split (HISAM only) . The 
module also contains a deadlock detection routine and will resolve the 
deadlock by terminating one of the tasks involved. 

Three basic control blocks are used to accomplish the enqueue/dequeue 
function: 

1. PST/PPST *- used to identify the task. 

2. RDB - used to describe a particular resource. 

3„ RRD ^ used to describe a particular task's request (either 
satisfied or pending) for a resource. 

As shown in Figure 3*6, the RDBs are chained together , both forward and 

backward, to one of several queue heads located in the QWA (queuing 

facility work area). Note that the queue heads have only a forward ^ 

pointer. The proper queue head is determined by hashing the resource ID ^^ 

and using the results as an index to the table of queue headers. 
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There is one RDB for each resource » no matter how many tasks (maximuin of 
255) have enqueued it. The RRBs are forward and backward chained on two 
queues, one from the RDB and one from the PST for the requesting task. 
There is one RRD for each resource a task has or is requesting. 

On entry to module DLZQUEFO^ register 1 contains the PST address and 
register 15 contains the entry point address (high-order byte contains 
•FLAG* if specified). The function requested (enqueue, dequeue, verify, 
or purge) is contained in the PSTFNCTN field of the PST. If the 
requested function is enqueue, dequeue, or verify, the PSTQLEV and 
PSTWRK2 fields also are initialized in the PST. These fields contain 
the queue request level (read-only, update, or exclusive) and the 
address of the resource ID, respectively, see Appendix D for the macros 
used to request a specific function. 

Enqueue and verify function are essentially the same and are, therefore, 
processed by the same routines. The only difference between them is 
that the user is not the owner of the resource at the return from a 
verify request. 

Three conditions can be present for the processing of the enqueue and 
verify function: 

1« The resource is not currently enqueued (no RDB exists) and is 

therefore, available. In this case, if the requested function is 
enqueue, the user is queued as owning the resource and control is 
returned to the caller. If the requested function is verify, 
processing is complete. 

2« The resource is currently enqueued, but is available at the 

requested level. In this case, the user is queued as an owner at 
that level and control is returned to the caller. 

3« The resource is not available. In this case the user is queued as 
waiting for the resource, deadlock detection is performed, and a 
CICS SUSPEND is issued pending the availability of the resource. 

Vvhen the wait is satisfied and if the request was for an enqueue, 
control is returned to the user. If, however, the request was for a 
verify, the user is first dequeued (see dequeue function) as owner 
of the specified level before he is given control. 

Dec(ueue function processing first determines if the resource is 
currently owned by the requestor. If it is not, the request is ignored. 
If it is, the enqueue count at the specified level is decremented. If 
all levels are now zero, task ownership is relinquished, and any waiting 
tasks that may now own the resource are promoted. If FLAG was 
specified, it is set for all waiting tasks. 

If the enqueue count goes to zero and it was the highest level, but 
lower levels still exist, the ownership level is lowered and any waiting 
tasks that may now own the resource are promoted. 

Purge function processing searches the chain of RRDs queued off the 
specified I^ST for a task and unconditionally relinquishes ownership for 
all resources encountered. Any waiting tasks that may now own the 
resource are promoted. 

On return from module DLZQUEFO, return codes are set in register 15 and 
in the PSTRTCDE in the PST. 
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Figure 3-6. Enqueue/Dequeue Control Block Relationships 
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The following table identifies the mainline routines and the functional 
subroutines of the queuing facility module: 



Mainline Routines 



Routine 



Function 



QENQBEQ Common Entry Logic 

QRETURN Common Exit Logic 

QENQVER Enqueue/Verify Mainline 
QNRENQ New Resource Enqueue/Verify 
QERENQ Existing Resource Enqueue/Verify 
QREENQ Re-enqueue or Verify of Resource Already Owned 

QDEQ Dequeue Mainline 
QDEQVER Dequeue Specific RRD 
QRELRSC Relinquish Ownership of Resource 

QPUR Dequeue all Resource for a Task 

DLZJRNAD Update Routine for RBA on CI or CA Split 



Functional Subroutines 



Routine 



Function 



QLOGRDB 

QLOCRRD 

QBLCRCB 

QBLDRRD 

QUCFRDB 

QDASCWN 

QWAIT 

QLOCNPO 

QPNOWCM 

QPFLAGP 

QDLKETN 

QDLKRSV 

QGETELK 

QRETELK 



Locate RDB or Position on Chain 

Locate RRD or Position on Chain 

Build, Initialize, and Chain RDB 

Build, Initialize, and Chain RRD 

Unchain and Free RDB 

Define Task as Owner of Resource 

Wait for Ownership of Resource 

Locate New Prime Owner 

Promote New Owners, Do Wait Chain Updates 

Pass Flag Parameters To Waiting Tasks 

Detect and Resolve Deadlocks 

Resolve Deadlocks 

Get 24-Byte Block from Free Chain 

Return 2'*-Byte Block from Free Chain 



Data Areas Used 

SCD 

PPST 

PST 

RDB 

RRD 

QWA 

Entry Points 

QENQDEQ • General entry point for request to enqueue, dequeue, or 
verify a resource, or to purge enqueues for a task. 

DLZJRNAD - Entry point to update the RBA portion of any resource IDs as 
required due to data movement during a VSAM CI or CA split 
(HISAM only). 
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DLZCPYIO - FIELD LEVEL SENSITIVITY COPY 



DLZCPYIO has two entry points: DLZCPYIO and BLZSEGCV. 

The function of DLZCPYIO is to map the user view of a segment into its 
physical view for DL/I ISRT and REPL calls ^ in support of field level 
sensitivity • On a path call, DLZCPYIO maps the segment at each level of 
the path. If a level in the path is not field sensitive, the segment at 
that level is moved without modification. DLZCPYIO is invoked by Call 
Analyzer (DLZDLAOO). 

The function of DLZSEGCV is to convert a segment from either the 
physical view to the user view, or the user view to the physical view, 
DLZSEGCV is invoked by DLZCPYIO to convert ISRT and REPL calls from user 
view to physical view, DLZSEGCV is invoked by Retrieve (DLZDLROO) to 
convert Get calls from physical view to user view. DLZSEGCV is also 
invoked by Retrieve to convert SSA values from user view to physical 
view. 



Interfaces - DLZCPYIO 

This module interfaces with the following module: 
DLZDBHOO 



Register Contents at Entry 

Rl = PST address (DLZCPYIO) 
FER address (DLZSEGCV) 

R5 = SDB address (DLZSEGCV) 

R13 = Save area address 

R14 = Return address 

R15 = Entry point address (DLZCPYIO) 
Addr (DLZCPYIO) +4 - (DLZSEGCV) 



Control 


Blocks 


• DLZCPYIO 


SDB 




PSB 


SDB Exp. 


PCB 


FSB 




JCB 


FER 




LEV 


FERT 




PSDB 


PST 




FDB 


SCD 




SEC 


PDIR 




DDIR 
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MPS CONTROL MODULES 

DLZMSTRO - START MPS TRANSACTION 

This module is invoked by the user via a specific transaction code 
(CSDA) to start multiple partition support (MPS). The responsibilities 
of this module are to: 

• Check if the DL/I nucleus is loaded, 

• Check if MPS is already active. 

• Attach the master partition controller (DLZMPCOO) . 

Control Blocks Addressed 

CSA-Coromon System Area (CICS/VS) 
SCD^Systeir Contents Directory 

Register Contents 

R13 Contains CSA address 

DLZMPCOO - MASTER PARTITION CONTROLLER (MPC) 

The master partition controller (MPC) is attached by the start 
transaction module (DLZMSTRO). 

The functions performed by the master partition controller are: 

• Initialize the MPC partition table (DLZMPCPT) . 

• Define all XECBs required for cross partition communication. 

• Process all start batch partition controller (BPC) requests and 
attach a BPC for a specific batch partition. 

• Process all stop partition requests. 

• Process the abend condition if the batch partition controller attach 
fails, 

• Process the stop transaction request to terminate MPS. 

• Return control to CICS/VS after all activity is completed. 

Control Blocks Addressed 

MPCPT MPC Partition Table 

SYSCOM System Communication Region 

CSA common System Area (CICS/VS) 

SCD System Contents Directory 

MPCECBLT CICS ECB Pointer List 

COMREG Partition Communications Region 

TCA Task Control Area 

Register Contents 

R12 Contains TCA address (at entry > 
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R13 Contains CSA address (at entry) 

Macros Used 

DFHKC TYPE=WAIT 
DFHKC TYPE=A1TACH 
DFHKC TYPE=RETURN 
XECETAB TYPE=CHECK 
XECETAB TYPE=DEFINE 
XECBTAB TYPE=DELETE 
XPOST 

DLZBPCOO - BATCH PARTITION CONTROLLER (BPC) 

The batch partition controller (BPC) is attached by the master partition 
controller (MPC) when a start request has been made by a batch 
partition. The functions performed by the batch partition controller 
are: 

• Define XECE for cross partition coirmunic-ition with the MPS batch 
initialization (DXZMINIT), MPS batch program request handler 
(DLZMPRH), and MPS batch termination (DLZMTERM). 

• Issue the DL/I scheduling call on behalf of the batch partition. 

• Process all DL/I calls on behalf of the batch partition. 

• Process ABEND conditions occurring in the batch partition. 

• Return control to CICS/VS for normal and abnormal conditions 

This module must be link-edited with the language interface module, 
DLZLIOOO, 

Control Blocks Addressed 



MPCPT MPC Partition Table 

TCA Transaction Control Area 

TWA Transaction Work Area 

PST Partition Specification Table 

PPST Prefix PST 

DLZXCBl DL/I Parameter List 



Register Contents 

R12 Contains TCA address (at entry) 
R13 Contains CSA address (at entry) 



Macros Used 

DFHKC TYPE=WAIT 
DFHKC TYPE=ATTACH 
DFHKC TYPE=RETURN 
XECBTAB TYPE=CHECK 
XECBTAB TYPE=DEFINE 
XECBTAB TYPE=DELETE 
XPOST 
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DLZMPIOO - MPS BATCH 

The MPS batch module is made up of the following five routines: 
!• MPS Batch Initialization (DLZMINIT) 

2. MPS Batch Termination (DLZMTERM) 

3, MPS Batch program Request Handler (DLZMPRH) 
i\^ MPS Batch Abend (DLZMABND) 

5-. MPS Batch Message Writer (DLZMMSG) 

A separate description for each routine is given in the following text. 

MPS Batch Initialization > DLZMINIT 

This is one of five routines that make up module DLZMPIOO to support the 
batch part of MPS, 

DLZMINIT reads the input parameter statement and checks it for validity. 
It then loads the user's program. Then it determines what to use as a 
partition identifier by checking the PIK in the BG COMREG. This value, 
modified and made printable, is put into each XECBTAB macro issued. 

After saving the program name and PSB name for use by online, an XECB, 
DLZXCBnl, is defined in the batch partition for communicating with the 
online partition. The online partition XECB (DLZXCBnO, with n being the 
identifier) is XPOSTed, This lets the online partition know that there 
is an MPS batch job ready to run in this batch partition. 

When the online partition completes its initialization, the batch 
routine sets up STXIT routines, finishes other initialization 
activities, and goes to the user program. 

DLZMINIT is entered by DOS/VS job control at the start of the job. 

control Blocks Addressed 

MPCPT MPC Partition Table 

TCA Transaction Control Area 

PST Partition Specification Table 

COMREG Communication Region 

XCBl XECB DLZXCBnl and data following it 

DTFs for SYSLST, SYSLOG, and SYSIPT 

STXIT AB savearea 

STXIT PC Savearea 

XECBs DLZXCBnO, DLZXCBn2, DLZXCBn3 

Register Contents (at Entry to Other Routines 

• User Program 

Rl PCB list if not PL/I; or a pointer to a list containing 

the following if PL/I: 

- address of pCB list 

address of location containing size of dynamic storage 

* address of start of dynamic storage 
R13 Save area 
RlH Return address 
R15 Entry address 

• Message Writer (DLZMMSG) 

R14 Return Address 

• ABEND Routine (DLZMABND) 

NO special register values 
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Macros Used 

XECETAB TYPE= DEFINE 

XECETAB TYPE= DELETE 

XECETAB TYPE= CHECK 

XPOST 

XWAIT 

OPEN 

CLOSE 

GET 

PUT 

CANCEL 

STXIT PC 

STXIT AE 

MVCCM 

COMRG 

LOAD 

MPS Batch Terirination - DLZMTERM 

This is one of five routines that make up module DLZMPIOO to support the 
batch part of MPS. 

The MPS batch termination routine is entered when the user program 
finishes* It tells the online partition to do termination activity r 
deletes its own XECB^ and ends the job. 

Control Blocks Addressed 

XCBl XECE DLZXCBnl and the data following it 

Register Contents 

Registers have the same values at entry~~as when MPS batch initialization 
(DLZMINIT) completed. 

Macros U sed 

' "V ' ' ■ ■■ " ■ ■ 

XPOST 

XWAIT 

EOJ 

XECETAB TYPE=CELETE 

MPS Batch Procrraro Request Handler -DLZMPRH 

This is one of five routines that make up module DLZMPIOO to support the 
batch part of MPS* 

The MPS batch program request handler routine is entered on each call to 
DL/I made by the user program. The user call list is validated and set 
up for the online partition to use. Then the online partition is 
notified by an XPOST of XECE DLZXCBN2. When the call is complete, data 
is moved to the user's I/O area. 

Control Blocks Addressed 

MPCPT MPC Partition Table 

TCA Transaction Control Area 

PST Partition specification Table 

XCBl XECE ELZXCBl 
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Register Contents 

• At entry: 

RO If=l, PL/I; if=0, not PL/I and value is ignored 
Rl If PL/I, points to list of pointers to parameters; 

if not PL/I, points to list of parameters 
R13 Save area 
RIU Return address 
R15 Entry address 

• Message Writer (DLZMMSG) 

R14 Return address 

Macros Used 

STXIT PC 

XPOST 

XWAIT 

XECETAB TYPE=CHECK 

MPS Batch ABEND - DLZMABND 

This is one of five routines that make up module DLZMPIOO to support the 
batch part of MPS. 

The MPS fcatch abend routine has three entries: 

U PC STXIT 
2« AE STXIT 
3.. other MPS batch routines that cause abnormal termination. 

The first two each identify which way the abend routine was entered. 
They then send an error massage. Then the third entry joins them as the 
online partition is notified. All entries delete the batch XECB and 
cancel or dump. 

When an abnormal termination situation has occurred, DLZMABND is entered 
by: 

• DLZMINIT 

• CLZMTERM 

• DLZMPRH 

control Block Addressed 

STXIT AB Save area 
STXIT PC Save area 

Register Contents 

• At entry 

No special values except base registers initialized 

• Message Writer (DLZMMSG) 
RIU Return address 

Exits 

JDUMP If dump requested 
CANCEL If no dump requested 



Licensed Material - Property of IBM 3-65 



Entry Points 

STXIl AB If abnoripal end entered by DOS/VS 

STXIT PC Jf program check deterinined by DOS/VS 

XPOST Entry Other abnormal end when BPC must be notified 

Macros Used 

XPOST 

XECBTAB TYPE=DELETE 

JDUMP 

CANCEL 

MPS Batch Message Writer - DLZMMSG 

This is one of five routines that make up module DLZMPIOO to support the 
batch part cf MPS, 

The MPS batch message writer routine handles all messages issued by the 
MPS hatch partition. At entry, a parameter list is set up. q:he first 
parameter is always a pointer to the message number, other parameters , 
if any, are as needed for the message. 

When a message is to be written to SYSLOG and/or SYSLST, the DLZMMSG 
routine is entered by: 

• DLZMINIT 

• DLZMTERM 

• CLZMPRH 

• BIZMAEND 

Control Blocks Addressed 
DTFs for SYSLCG and SYSLST 

Register Contents 

• At entry: 

R14 Return address 

Ease registers already initialized 

• At entry to message table (DLZMMSGT) : 

Rl Points to parameter list 

R4 Ease register for DLZMMSGT 

R5 Address of where message is to be placed 

R7 Length of message set up before calling DLZMMSGT; 

after call, R7 has total message length 

R9 Points to PST (for checkpoint message DLZ105I) 

RIO Second base register for DLZMMSGT 

Exits 

To calling routine via branch register 14 

Macros Used 

PUT 
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DLZMSTPO - STOP MPS TRANSACTION 

This module is invoked when a user wants to stop MPS. The user inputs a 
specific transaction code (CSDD) defined to initiate the stop 
transaction processing. The module then notifies (XPOST) the particular 
XECE that causes the MPC to end the MPS environment. 

After the XPOST, the MPC allows batch jobs already executing to 
completer but will not allow any new ones to start. 

This transaction should be started before CICS/VS non-immediate shutdown 
is initiated. 

Macros Used 

XECBTAB T^PE=CHECK 
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DATA EASE RECCVERY UTILITIES 



DLZEACKO - BATCH BACKOUT INTERFACE 

The batch backout interface module reads and validates any 'LI" control 
stateirents from SYSIPT. A log input specification table describing each 
log file to be processed is created. The module then reads the DL/I log 
files and passes the data base log records to the data base backout 
module (DLZRDECO) for processing. 

By reading the log files in a backward mode^ this module is able to 
process the data base records in reverse sequence without using an 
intermediate work data set. When a block is read in^ it is searched and 
the sequence field located at the end of each logical record is replaced 
by the length of that logical record. With the length thus in the back 
of a record as well as in the front, it is deblocked and spanned. 

The interface process includes the following record types: 

X'07* • Application program termination record 
X*08" • Application program scheduling record 
X"41' • Checkpoint record 
X"50* - Data base log record 
X"51* • Data base log record 

The batch backout utility is executed under DL/I control as an 
application program. Processing of module DLZBACKO is as follows: 

1. Control is received from DL/I initialization and the PSB name is 
obtained from the parameter data. 

2. The log file is opened to be read backward. 

3« The log file is read backward and records bypassed until the first 
data base log record for the PSB is obtained. 

a« An application program termination record (X*07') for the PSB 

indicates no backout necessary, the message "BACKOUT COMPLETE" is 
issued at SYSLOG, the log is closed, and the job is terminated. 

5« Data base log records (X*50* and X*51*) are passed to module 
DLZRDECO to be processed against the appropriate data base. 
Processing terminates when an application program scheduling record 
or a checkpoint record is read, the message "BACKOUT COMPLETE" is 
issued at SYSLOG, the log is closed, and the job is terminated. 

If end of file is reached on the log (i.e., the header record is read), 
it is closed. If more log files are to be processed, the above process 
is repeated starting at step 2. Multiple log files must be processed in 
reverse order of their creation. When all log files are processed, a 
"BACKOUT COMPLETE" message is issued and the job step is terminated. 
The job is terminated by returning control to DL/I which purges all 
buffers, closes all DMBs, and closes the output log file. 

R egister Contents on Entry 

Rl = PSB list address 
R13 = Save area 
R14 = Return 
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R15 = Entry point 

control Blocks - dlzbackO 

Application program scheduling record 

Application program termination record 

Checkpoint record 

Data base log record 

DMB 

PCIR 

PSB 

PST 

SCD 

External Modules Called 

CLZRDBCO • Called to interface with DL/I and perform backout. 

Record and Message Formats - DLZBACKO 

All messages are sent to the SYSLOG and SYSLST devices. The messages 
are contained in module DLZEACMO. 

DLZRDBCO - DB CHANGE BACKOUT 

This module receives control from DLZBACKO with a log record to process. 
It calls open/close (DLZDLCCO) to open the DMB specified in the record 
unless the data base is already open. The buffer handler (DLZDBHOO) is 
called to retrieve the KSDS or ESDS block as indicated by the key or the 
ESDS relative block number or relative byte address- 

The data in the buffer is replaced with the •old* information in the 
log, thereby nullifying the offending programs update. In the case of 
HD, when a physical delete or insert record is processed, space 
management (DLZDHDSO) is called to update the free space elements and 
bit map, if necessary and to build the input data for the data base 
logger, DLZRDBLO is called to record the changes made to the data base. 

The buffer handler is then called again to mark that buffer altered and 
control is returned to DLZBACKO. 

Register contents and Control Blocks on Entry 

Rl = PST address 

R13 = Save area 

R14 = Return 

R15 = Entry point 
PSTSCDAD = SCD address 

ADDRIOG = Address Of data base log record within DLZBACKO 
PSTDGU & PSTDGN must be zero on initial entry 

control Blocks -> DLZRDBCO 

Data base log record 

CDIR 

DMB 

DSG 

PCB 

PCIR 
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PSB 
PST 
SCD 



External Modules Called 

DIZDBHOO • Called to read a data base record and to mark the 

buffer altered 
BLZDHDSO • Called to free or reserve space in an HDAM or 

HIDAM record 
DLZDLCCO • Called to open data base 
DLZRDBLO - Called to log backout modifications to data base 

Interface with External Modules 

All modules expect R14 ♦ R15 to contain return address + module 
entry point address* 

DLZDLCCO 

Rl = address of PST 

R2 = address of DDIR entry for DMB to be opened 

PSTDSGA = address of DSG to open 

PSTFNCTN = PSTOCDMB + PSTOCOPN 

SCDCWRK = address of normal log record work area 

DLZDEHOO 

Rl = address of PST 

PSTBLKNM = RBN if HD ESDS 

PSTACBNC = 1 

PSTDMENC =1 

PSTBYTNM = RBA if HISAM ESDS or address of key if KSDS 

PSTFNCTN = desired function 

DLZDHDSO 

Rl = address of PST 

R5 = address of PSDB of segment 

PSTOFFST = offset to segment from beginning of block 
PSTCODEl = indicates backout in control (for logger) 
PSTFNCTN = PSTFRSPC ♦ X'80' (to show backout in control) 

DLZRDBLO 

RO = SCD address 
Rl = PST address 

PSTCODEl = PSTINTNT + PSTSCHED to indicate backout calling 
PSTDATA = address of data in buffer 

SCDCWRK = address of backout log work area containing the 
control information for this log record 

Register Contents on Exit 

All registers are restored with the exception of register 15 which 
contains a return code. If this code is non-^zero, DLZBACKO will print 
and type the appropriate error message. 
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Error Codes and Handling - DLZRDBCO 

All error codes are passed to DLZBACKO in register 15. 

DLZURDBO - DE DATA SET RECOVERY 

The data fcase data set recovery utility module DLZURDBO is executed 
under DL/I control as an application program. Control is passed to 
DLZURDBO from DL/I initialization^ This module is comprised of two 
independent but logically related functions. The first consists of an 
image dump and a change accumulation processor. The PCB address is 
saved r and a GSCD call is issued to obtain the PST address. Control is 
passed to DLZURCCO to read and process control statements from SYSIPT. 
From information saved by DLZURCCO, a DMB is loaded from the Core Image 
Library to obtain the physical characteristics of the data set to be 
recovered. The DL/I open/close routine (DLZDLOCO) is called to open 
the output ACE and the input file is opened. Then the program enters a 
dump/ cum data merge routine. This routine selects a dump record, merges 
any accumulated changes from the cum data set, and a call is made to the 
buffer handler (DLZDBHOO) to write the new record to the output data 
set,. Upon completion, a partial or completely recovered data set may 
exist. If no additional changes are to be applied through log files, 
the program calls the DL/I open/close routine (DLZDLOCO) to close the 
output ACE and terminates. 

If additional changes are to be applied from log files, the program 
enters the second function. This routine opens the logs, scans the log 
to find a record that applies to this data set, and merges the data from 
the log to the data set record. Upon completion, the routine does post- 
processing and a recovered data set then exists. 

The operation of this routine depends on certain DL/I functions to 
process the logs. The log is scanned for a matching data base/data set 
name record. When one is encountered, the record ID, either a key of a 
KSDS record or a relative block number of an ESDS record is saved, and a 
call is made to the buffer handler (DLZDEHOO) requesting that the record 
be retrieved. Upon successful return, the log record data is merged 
with the returned record, and a call is made to the buffer handler 
requesting that the record be marked as altered to cause rewriting. The 
records from the log are thus processed until an end of file is 
encountered on the log input. At this time, a call is made to the 
buffer handler requesting that all altered buffers be purged, that is, 
that all records that have been altered be rewritten. The program then 
calls the DL/I open/close routine (DLZDLOCO) to close the output ACB, 
and the program terminates. 

Blocks and Tables - DLZURDBO 

This module utilizes certain DL/I blocks, including the PST, DSG, DMB^ 
DMB directory, SDB, PCB, JOB, and SCD. Additionally, several record 
formats are used as follows: 

1. HISAM reorganization header and data records. See HISAM 
reorganization unload (module DLZURULO) for details. 

2« Data base image dump header and data records. See data base data 
set image copy module (DLZUDMPO) for details. 

3« Accumulated change CUM header and data records. See change 
accumulation module (DLZUCUMO) for details. 
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U« Cata base change log records. 

Normal Entry Points 

The only entry point to this module is DLZURDBO. 

Register On Entry 

Rl == pointer to fullword containing address of PCB 

Registers On Exit 

Ml registers are restored to entry conditions. 

Modules Called by DLZURDBO 

The recovery control statement processor (DLZURCCO) is called to read 
and validate any input control statements. 

Rl = pointer to recovery common area 

The DL/I open routine (DLZDLOCO) is called to open a specific ACB. 

Rl = pointer to PST 

The DL/I buffer handler (DLZDBHOO) is called to retrieve and write a 
specific record, mark a buffer altered , and purge (rewrite) all altered 
buffers. 

Rl = pointer to PST 

The DL/I close routine (DLZDLOCO) is called to close a specific VSAM 
ACB. 

Rl = pointer to PST 

Error Codes and Handlinci - DLZURDBO 

All codes are in the form of messages. The module DLZRDBMO contains all 
error messages issued by the Data Base Data Set Recovery Utility. 

DLZURCCO - Recovery Control Statement Processor 

This module reads and validates the input control statements from 
SYSIPT. The "S* control statement describes the data base to be 
recovered. The 'LI* control statements describe the log files to be 
processed. Information from these statements is saved in the recovery 
common area for use by DLZURDBO. 

tiormal Entry Point 

The only entry point to this module is DLZURCCO. 

Registers on Entry 

Rl = pointer to recovery common area. 
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Registers on Exit 

All registers are restored to entry conditions except R15, which 
contains a return code (see below). 



Error Codes and Handling 

Messages are issued to SYSLST and SYSLOG for any invalid control 
stateirents. On return to DLZURDBO, R15 is set as follows: 

R15 = - No errors 

R15 = 4 - No input control statements 

R15 = 8 - Input control statement error 



DLZUDMPO ^ DB DATA SET IMAGE DUMP 

The data base data set image copy utility module DLZUDMPO is executed as 
a standard DOS/VS application program and creates a backup copy of a 
specific data base data set. Input may be either a KSDS (HISAM, Simple 
HISAM, or HIDAM INDEX) or an ESDS (HISAM, HIDAM, or HDAM) • The output 
is used as input to the data base data set recovery utility. Processing 
is as follows: 

1« A control card is read from SYSIPT and preliminary validity checking 
is performed on various fields. The input card defines the data 
base/file to be dumped, the dump output symbolic filenames r and the 
number of output copies to be created. 

2^ The device type is determined for each output file specified and the 
file(s) are opened. 

3- The DMB is loaded frpm a core image library to obtain the physical 
characteristics of the data base file to be dumped. 

4« A header record is written to the output file. This record contains 
information necessary to allow the use of the image dump file by the 
data base data set recovery utility. 

5« The input file is opened. 

6« Input segments are read sequentially, an S-'byte prefix is added to 
identify the segment, and the logical record (prefix + segment) is 
blocked and written to the output file. 

7.^ After all segments have been copied (EOF), the input and output 
files are closed. 

8« Output statistics for the file are written to SYSLST. 

9^ Processing continues from step 1 until there are no more input cards, 
at which time the program terminates. 

control Blocks - DLZDDMPO 

• Eump record prefix 

• Dump header record. 
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Error codes and Handling - DLZUDMPO 

All error codes are in the fomn of messages to SYSLST and SYSLOG. All 
the messages used by the DB Data Set Image Dump Utility are contained in 
module DLZDMPMO; a read-only CSECT, 



DLZUCUMO - DB CHANGE ACCUMULATION UTILITY 

The data base change accumulation utility module DLZUCUMO is executed as 
a standard DOS/VS application program. DLZUCUMO controls the overall 
operation of the Data Base Change Accumulation Utility, First, the 
control card processor module (DLZUCCTO) is called to read the input 
stream^ Upon its return, the PBOCFLAG switch is tested. If records are 
to be passed to sort, the sort parameter list is formatted, including a 
sort Exit 15 (DLZUC150) and the sort Exit 35 eDLZUC350), The sort 
program is then loaded « and this module (DLZUCUMO) waits for it to 
terminate. Upon termination, a completion code is tested and 
appropriate messages are provided as output. If records are not to be 
sorted, that is, no DBO type control cards were read, the module calls 
the Exit 15 module (DLZUC150) to create the new log file. If error are 
encountered by any of the four processing modules, control is passed to 
the common error routine DLZUCERO. 

control Blocks - DLZUCUMO 

• Data base name tab^e, containing the data base names and the address 
of the date/time table for this entry. 

• Data/time table 

• Accumulation header record 

• Accumulation record 

Normal Entry Point 

The main entry point to this module is DLZUCUMO. DLZERRTN is an entry 
point used by DLZUC150 on any error condition. 

Entry Conditions 

This is the main module which controls the overall operation of the Data 
Ease Change Accumulation Utility program. 

Control information is passed from module to module by means of an 
externally referenced table contained in DLZUCUMO. 

DLZUCERO - common Error Routine 

This module is the common error routine. Control may be passed to it 
from any of the four processing modules. It addresses a message from 
the message module CDLZCUMMO), depending on parameters passed to it, and 
prints a message to the SYSLST and SYSLOG devices. If the passed 
parameters indicate a multi-part message, it does not write the message 
on the first entry. Instead, it passes the last-used position in the 
output buffer back to the caller to allow the caller to insert special 
data in the messages- On the second entry to this routine , the message 
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is written. All messages issued by the DB Change Accumulation Utility 
are contained in module DLZCUMMO. It is a read-only module. 

Normal Entry Point 

The only entry to this module is DLZUCERO. 

Entry Conditions 

This module is entered to output all error messages. 

Register Contents on Entry 

Rl contains a message number. R2 is negative if this is a multi-part 
message, (R2 points to last byte of message on second entry of multi- 
part iressaqe*) 

Register Contents on Exit 

All registers are restored to entry conditions except R2, which points 
to last byte of message on first entry return of multi-part message. 

DLZUCCTO - Control Card Processor 



This module is the control card processor. It reads the control card 
input stream, checks the cards for validity, and constructs the data 
base name table and the date/time table if data base names are supplied. 
It also constructs the log input specification table describing the 
input log file(s). 

Normal Entry Point 

The only entry to this module is DLZUCCTO. 

Entry Conditions 

This module is entered to process the control card input stream. 

Register Contents on Exit 

All registers are restored to entry conditions. 

DLZUC150 - Sort Exit 15 

This module is the sort Exit 15 routine. It reads the log input 
records, checks the purge date if applicable, and determines the 
disposition of the record. If the record matches an entry in the data 
base name table, the date/time table is searched and the appropriate 
purge date and time are compared. If the record is before the purge 
date, the program returns to read another record. If the record is not 
purged, the routing is determined from the table and written either to 
sort or to the new log. A table of DMB names and purge dates is 
prepared for Exit 35. 
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NoritiaX Entry Point 

This iTiodule is entered at BLZUEX15 if no records are to be accuroulated, 
and at DLZUC150 by sort. 

Entry Conditions 

This irodule is entered to read input logs and disperse records to new 
log or sort. Rl contains the address of the parameter list from sort or 
a dummy list if control was received from DLZUCUMO. 

Register Contents on Exit 
All registers are restored. 

DLZUC350 - Sort Exit 35 

This module is the sort Exit 35 routine. It receives all records from 
sort. If an old accumulated data set is supplied^ a record is read from 
the data set and a record is retrieved from sort. The data base name 
and file identification of the records are compared. All input cum 
records are purge-checked according to the date/time, if any, specified 
on DBO card(s). If the old cum input is low, it is written to the new 
cum data set. If the records are equal , the data from the sort record 
is merged to the old cum record, unless purged, and another record is 
obtained from sort. This sequence continues until an unequal condition 
is detected, at which point the record is written to the new cum data 
set. If the old cum is high, records from sort are combined and written 
to the new cum data set until the compare condition changes. This 
process continues until both the sort and the old cum records are 
exhausted. 

Normal Entry Point 

This module is entered at DLZUEX35 by sort. 

Register Contents on Entry 

Register 1 contains the address of the sort Exit 35 parameter list. 

Entry Conditions 

This module is entered by sort to dispose of all sorted records. 

Register Contents on Exit 

All registers are restored to entry conditions, with the sort parameter 
list updated as needed. 

DLZLOGPO - LOG PRINT UTILITY 

The log print utility module (DLZLOGPO) is executed as a standard DOS/VS 
application program and prints the contents of DL/I log files. Input 
log files may be either tape or disk. Optionally, the utility can 
create an output log tape suitable as input to the backout utility 
module (DLZEACKO). Processing of the log print utility is as follows: 
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1. Module DLZLPCCO is called to process input control statements, 

2- If requested, the output log tape file is opened. 

3- The DLZDVCE macro is issued to determine the log device type, and 
the log file is opened. 

4- The log records are read and deblocked, and the record types are 
checked to see if valid DL/I record. 

5« The log records are printed to SYSLST in either keyword format or 
dump format. 

6., If requested, log records are written to output log tape. 

7- The input log file is closed. If more input log files were 
specified, processing continues from Step 3. 

8« If requested, the output log file is closed. 

9„ Informational statistics are written to SYSLST and the program 
terminates. 

Error Codes and Handling 

All error codes are in the form of messages written to SYSLST and 
SYSLCG. All the messages used by the log print utility are contained in 
module DLZLGPMO. 

DLZLPCCO * Log Print Control, Statement Processor 

This module is called by DLZLOGPO to read and process input control 
statements. The control statements are read from SYSIPT and validity 
checking is performed. Valid control statement types are: •LG", 'LS*, 
and "LI*. Information from the control statements is saved in the log 
print coiriron area. 

Normal Entry Point 

This module is entered at DLZLPCCO by DLZLOGPO. 

Register Contents on Entry 

Register 1 points to the log print common area. 

Register 9 points to the next available print line buffer. 

Entry Conditions 

This module is entered by DLZLOGPO to read and process input control 
statements. 

Register Contents on Exit 

All registers are restored to entry conditions except register 9, which 
is updated to point to the next available print line buffer. 

Error Codes and Handling 

All error codes ^re in the form of messages written to SYSLST and 
SYSLOG. All the messages used by the log print utility are contained in 
module DLZLGPMO. 
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DATA EASE REORGANIZATION OTILITXES 



DLZURULO - HS DB UNLOAD 

The HISAM reorganization unload module DLZURULO is executed as a 
standard DGS/VS application program. A control card specifying the data 
base naroe, data set name, and output symbolic unit name is read. The 
DBD specified is loaded, and a short segment table is constructed. This 
table consists of the first eight bytes of each segment table entry in 
the DBD. This includes, among other things, the segment physical code 
and the segment length. The size of the prefix, as described for each 
segment type, is added to the segment length and entered in the table. 
This length is later used to move the segment from the input area to the 
output area. 

Next, the input and output data sets are opened. A header record 
containing information about the data base data sets is constructed, and 
a statistics record is written. The first KSDS record is then read and 
the root segment is checked to determine whether the deleted flag is on 
(no prefix if Simple HISAM). If it is on, the total segment chain for 
that root is ignored, and the next root is processed. If the root is 
not deleted, it is moved to the output area, and the first dependent 
segment, if present, is processed. If the dependent segment is not 
deleted, it is moved to the output area, and the next segment is 
processed. This continues until the complete dependent segment chain 
for this root, including any overflow dependent segments on the ESDS, 
have been processed. If the segment is deleted, each succeeding segment 
that is a child of the deleted segment is also deleted. The first 
segment that is not a child of the deleted segment causes the normal 
segment processing to be resumed. The last record written is a 
statistics record which includes information needed for audit trail. 
The output data set now contains the reorganized KSDS and ESDS logical 
records in physical sequential format (only KSDS if Simple HISAM). An 
image of the KSDS record containing a root segment and dependent segment 
is followed by images of the ESDS records containing overflow dependent 
segments for the root segment. A chain pointer in the KSDS contains the 
correct relative byte address of the next ESDS record containing 
overflow dependent segments. If more than one ESDS record is needed to 
contain overflow dependent segments, they follow in sequence and chain 
pointers are maintained in the records. 

Error message handling is accomplished in the following manner: When a 
routine within module DLZURULO requires an error message to be 
generated, a number is loaded into Rl. This number corresponds to a 
message in the message CSECT (DLZRULMO). The routine then branches to a 
common routine which outputs the message. The number passed in Rl is 
multiplied by U and added to the start of the message CSECT (DLZRULMO). 
At that offset, a fullword containing the length of the message and the 
offset to the start of message text is obtained. These values are used 
to move the message to an output buffer. DLZRULMO is a read-only module 
containing all error messages issued by module DLZURULO. 

control Blocks - DLZURULO 

• Short segment table 

• Output data record 

• Output header record 

• Statistics record. 



3-78 Licensed Material - Property of IBM 



Error Codes and Handling - DLZURULO 

All error codes are in the form of error messages^ 

Sample Description of HISAM Reorganized Forinat 

Assume a HISAM data base which consists of a single root segment and 
dependent segments in the hierarchical format shown in Figure 3-7, 



ROOT 
SEGMENT 




SEG D 







1 
















SEGB 




SEGC 



SEGG 



SEG E 



SEGH 



SEGF 



SEG I 



SEG J 



Figure 3-7. HISAM Data Base with One Root Segment 



The input for the HISAM Reorganization Unload Utility appears as shown 
in figure 3-8. 

KSDS RECORD 



1 


ROOT SEGMENT 


SEG A 
(DELETED) 


SEGB 
(CHILD OF A) 


SEGC 
(GHILDOFA) 






ESDS RECORD 1 



+ 


SEGD 


SEG E 


SEGF 
(DELETED) 


SEGG 






ESDS RECORD 2 






SEGH 


SEGI 


SEG J 
(DELETED) 





FREE SPACE 



Figure 3-8. Input for HISAM Reorganization Unload Utility 
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Given this input, the HISAM Reorganization Unload Utility provides the 
output shown in Figure 3-9 • 

HEADER RECORD 



INFORMATION ABOUT DATA BASE 



STATISTICS RECORD 



TOTSEGVALUE = 



DATA RECORD (KSDS) 



1 


ROOT SEGMENT 


SEGD 


SEG E 


SEGG 






DATA RECORD 2 (ESDS) 






SEGH 


SEGI 





FREE SPACE 



UNLOADED STATISTICS RECORD 



TOTSEG = NUMBER OF SEGMENTS UNLOADED FOR SEGMENT LEVEL 



Figure 3*9« HISAM Reorganization Unload Utility Output 

Note: A second ESDS record is unnecessary because space occupied by 
deleted segirents is reclaimed. 

BLZURRLO - HS DB RELOAD 



The HISAM reorganization reload module DLZURRLO is executed as a 
standard DOSXVS application program and is used to reload a reorganized 
HISAM data base data set group. The input to the program consists of a 
reorganized dump of the key sequenced data set (KSDS) and entry 
sequenced data set (ESDS) created by the HISAM Reorganization Unload 
Utility program. Processing is as follows: 

!• A control card, which contains the filename of the input file 

containing the HISAM data base to be reloaded, is read. The input 
file is opened and the header record is read. 

2« The output KSDS and ESDS ACBs are generated using the information 
contained in the header record and the KSDS and ESDS are opened 
(only KSDS if Simple HISAM). 

3« The statistics record is read and the statistics table initialized. 



Records are read sequentially from the input file, 
are images of KSDS and ESDS records. 



These records 



5., KSDS records are written to the output KSDS using VSAM keyed 
sequential (mass) insert. 

6« ESDS logical records are written to the output ESDS using VSAM 
addressed sequential insert. 

7« After all data records have been processed, the last input 

statistics record is read, and a statistics report is printed, 
comparing segments unloaded/reloaded. 

8« The files are closed. 
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All error messages issued by the HS DB reload utility are contained in 
module DLZRRLMO, It is a read-only module^ 

control Blocks - DLZURRLO 

• Header record 

• Input data record 

DLZURGUO - HP DB UNLOAD 

The HD reorganization unload module DLZURGUO is executed under control 
of the PL/I system as an application program and is used to unload a 
data base by issuing DL/I calls. One or two files may be created and 
output may be to tape or DASD,, The module contains two processing modes 
- "normal" and "restart". 

Normal processing , after module DLZURGUO receives control from DL/I, is 
as follows: 

1« The PCB address is saved and a GSCD call is issued to obtain the PST 
address. The PST allows the program to access the DL/I control 
blocks needed to construct the prefix portion of the output record. 
This prefix, as described below, is used by the HD Reorganization 
Reload Utility, 

2« The number of outputs (one or two) and output device type (tape or 
DASD) are determined, 

3« Storage is obtained for the statistics table. 

4*. Each output file is opened, 

5« The statistics tables, which have been initialized for all data base 
segment types, are written to the output fileCs). 

6^ A Get Next (GN) call is issued for the first (or succeeding) 
segment, 

7« The statistics table for the segment type is updated. 

8-, The segment is combined with the segment prefix to form an output 

logical record. The output logical records are blocked and written. 

9« Whenever a checkpoint interval is reached (first root segment after 
5000 segments have been processed), a checkpoint record is written 
to the output file. The current statistics are part of the 
checkpoint record. To insure the checkpoint record is physically 
written, a dummy checkpoint is also written to output. Additionally 
a message containing the ID of the checkpoint record is written to 
SYSLCG. 

10, Processing continues at step 6 until end of file is encountered. 

11. At end of file, the statistics table totals are written, the output 
file(s) is closed, and the program returns control to DL/I, 

Restart processing , after module DLZURGUO receives control from DL/I, is 
as follows: 

1« Steps 1 • 4 of "normal processing" are performed. 
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2„ The restart (RESTART) input file is opened. This is either the 
outputl (HDUNXiDl) or output2 (HDUNLD2) file from the previously 
terminated job execution. 

3« A message is issued to SYSLOG requesting the checkpoint record 
number (ID) at which to restart. The number is validated. 

4« All records^ including the requested checkpoint record , of the 
RESTART file are copied to the output file(s). 

5« A Get Unique (GU) call is issued for the checkpointed root segment 
to establish positioning« If the RBA is available for the root 
segment, it is placed in the SSA with an internal "♦t" command code; 
otherwise the segment's key is placed in the SSA and an internal 
"♦C (key retrieve) command code call is issued. The statistics 
table is initialized with the checkpointed statistics record. 

6« Steps 6 - 11 of "normal processing" are performed. 

control Blocks - DLZURGUO 

• Output record containing segment prefix 

• SSA for GU call by RBA 

• SSA for GU call by key 

• Output table record 

• Checkpoint record. 

Interfaces - DLZURGUO 

This module interfaces with DL/I through the DL/I language interface 
module DIZLIOOO at entry point ASMTDLI. 

Error codes and Handling - DLZURGUO 

All errors are indicated by error messages. All messages issued by the 
HD DE unload utility are contained in module DLZRGUMO. It is a read- 
only m.odule. 

PLZURGLO - HD DB RELOAD 

The HD reorganization reload utility (DLZURGLO) is loaded under DL/I 
control as an application program. It reloads a data base under control 
of DL/I. Input to the module consists of a sequential dump data set of 
logical records created by the HD reorganization unload utility 
(DLZURGUO). A logical record consists of a segment prefix and a 
segment. 

During the reload, a message is issued each time a checkpoint record is 
encountered (approximately every 5000 segments). This message is the 
same in content and format as that issued during unload when the 
checkpoint record was created, and identifies the checkpoint by number. 
If the reload facility fails, a restart capability called 'Reload 
Restart* allows restarting from a checkpoint record. 

After module DLZURGLO receives control from DL/I initialization, 
processing is as follows: 
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!• The PCE address is saved, and a GSCD call is issued to obtain the 
PST address. 

2« The input device type is determined and the data set is opened. 

3« If restarting, obtain checkpoint restart number from operator and 
locate checkpoint record. The data base is then positioned (GU 
call) and the end of data is found (GN calls). 

4« An input record is read (segment), and a DL/I call list is 
constructed, 

5« A Dli/I Insert (ASRT) call is issued for the segment. 

6- After all segments have been processed, the last statistics table 
record is read and a comparative statistics report is written. 

7« The input data set is closed, and the program returns control to 
DL/I. 

Blocks and Tables 
Input record 

Interfaces - CLZURGLO 



This module interfaces with the DL/I routines through the DL/I language 
interface module DLZLIOOO at entry point ASMTDLI. 



Error Codes and Handling - DLZURGLO 

All error conditions are indicated by error messages. All messages 
issued by the HD DB reload utility are contained in module DLZRGLMO. It 
is a read-only module. 
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APPLICATION CONTROL BLOCKS CREATION AND jyiAINTENANCE 



DLZUACBO • ACE CREATION AND MAINTENANCE 



The application control blocks creation and maintenance utility creates 
the internal control blocks required by the DL/I application program. 
Using the PSB and DBDs as input, this utility creates DL/I internal 
format control blocks as output. These output control blocks must be 
link edited into the DOS/VS Core Image Library, either private or 
system, as specified by the user. These blocks contain information 
about the data bases and the programs which use them. They describe 
some device and media characteristics, the stored data structures, and 
the logical data structures as seen by both the system and application 
programs. The program accepts control card input to determine what 
functions are required. 

The logic flow is as follows: The control card input stream is 
processed and each card is syntax-checked. A sorted list of requested 
blocks is built in main storage. Each PSB name specified on the control 
card is inserted into the list. 

Each name on the constructed build list is then passed to the 
application control blocks builder module DLZDLBLO to have blocks 
constructed. Addresses are relocated relative to zero and the completed 
blocks are written to a SYSPCH or SYSLNK data set. 

Blocks and Tables - DLZUACBO 

Program control parameter block 

PST 

SCD 

PEIR 

Interfaces - DLZUACBO 

This module interfaces with the following modules: 

DLZUSCHO • Called to create and search sorted PSB lists 

DLZLBLMO * Called to format prebuilt messages 

DLZDLBLO • Called to build and output control blocks for a PSB 



Register Contents 

RO-Rl = PARM registers 

R2-R8 = Work registers 

R9 = Pointer to PST 

RlO-Rll = Work registers 

R13 = pointer to save area and primary base register 

RIU-RIS = Operating system linkage registers 



DLZUSCHO - ACB MAINTENANCE BINARY SEARCH/INSERT 



The function of module DLZUSCHO is to create and search sorted lists in 
dynamic (GETVIS) storage using the binary search technique. Any number 
of lists may be created simultaneously (subject only to the limit of 
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available storage). A list entry may be any length from 1 to 256 bytes. 
The key or sequence field may also be from 1 to 256 bytes in length and 
may be located anywhere in the list entry. The only restriction on keys 
is that they roust consist of a single contiguous string of bytes within 
the list entry. 

The nurober of entries in any list is liroited only by available storage. 
However, since this routine physically rooves data in storage to roake 
roora for new entries , it becomes less efficient as the number of entries 
increases. For large numbers of items , it might be best to consider 
sorting the entries in the conventional fashion. 

This module is called by DLZUACEO to build and maintain the list of PSBs 
to be processed. 

Operation 

I- The following interface is used to initiate a new list: 

L 15,=V(DLZUSCH0) 
LA 1, FARMS 
BALR 14,15 

where FARMS is a 3-word list whose contents 
are as follows: 

word 1 = length of the list entry 

Word 2 = offset from the beginning of the list 

entry to the key/sequence field 
Word 3 = length of the key/sequence field 

On return, register 1 contains the location of the new 
list control block. (This location must be submitted to 
the search routine on all subsequent search or insert 
calls for this list.) 

II. The following interface is used to insert an entry into 
a list: 

L 15,=V(INSRCH) 
LA 1,INFARMS 
BALR 14,15 

where INFARMS is the location of a two-word 
list whose contents are: 

Word 1 = address of the list control block 
Word 2 = address of the list entry to be 
inserted 

On return from INSRCH, register 15 contains zero if the 
entry was successfully inserted, and register 1 contains 
the location at which the insert was made. 

If the entry was not inserted (because a duplicate was 
found), register 15 contains 8, and register 1 contains 
the location of the duplicate entry. 

III. The following interface is used to locate an entry in a 
list created by INSRCH: 

L 15,=V(L0CSRCH) 
LA l.LCCFARMS 
BALR 14,15 
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where LCCPARMS is the location of a two-word list 
whose contents are: 

;^ord 1 = address of the list control block 
word 2 = address of the search argument (key) 

On return from LOCSRCH, register 15 contains zero if an 
entry containing the search argument in its key field was 
found, and register 1 contains the location of this 
entry. 

If no entry was found. Register 15 contains 4 and 
register 1 remains as it was on entry to LOCSRCH. 

IV. The following interface is used to delete all storage 

obtained by OPENSRCH and INSRCH for a given list: 

L 15,=V(CL0SESCH) 
L IrLOCPARMS 
BALR 14,15 

where LOCPARMS contains the location of the list control 
block for the list to be deleted. 

control Blocks - DLZUSCHO 

• List control block 

• Sorted list block. 

Programming Note 

If some number of entries have been placed in a list through repeated 
calls to INSRCH, they can be retrieved in sorted order by locating the 
first block by way of CHAINLOC and all subsequent blocks by way of their 
CHAIN fields. The entries are in order (low to high logical sequence) 
with the lowest entry in block 1 entry 1, next in block 1 entry 2, etc., 
with the highest entry located in the last-used slot in the last block. 



PL^LBLMO - ACB <3eneration Error Message Handler 

This module is used to contain, select, and format error messages for 
the ACB generation facility. Given a message number in register one, 
the module will select the matching message and format it by inserting 
an arbitrary number of additional charaGteir strings addressed by 
^|)ecified registers. I'he "PRTMSG' routine in module DliZOACBO is called 
to print the message. Control i^ returned to the caller. 



Register contents on Entry "^ DLZLBLMO 

Rl - Message number 
R13 - Save area 
R14 - Return address 
R15 - Entry point 

Additionally, atiy registers are passed that have been defined to contain 
pointers to character strings to be inserted into the message. These 
are generally (but not always) registers 5, 6, and 7. 
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External Routines Called - DLZLELMO 

PRTMSG - Entry point to the print routine in module DLZUACBO. 

DLZDLELO, DLZELBLl^ DLZDLBL2^ DLZDLBL3 - ACB BUILDER 

These four modules are jointly responsible for building all the control 
blocks for a given PSB and its associated DBDs, and for outputting them 
to either SYSPCH or SYSLNK in a format that allows LINKing them into the 
DOS/VS core image library. 

The first module , DLZDLBLOr loads the specified PSB and builds the PCBs 
and SDBs for segments identified via SENSEG statements at PSBGEN time. 
It then passes control to module DLZDLBLl. 

Module DLZDLBLl loads the DEDs for all referenced data bases and builds 
the associated DMBs (for all but logical DBDs) • It then processes the 
SDBs associated with each DBD, copying any required information from the 
physical definitions and building any required generated SDBs, Control 
is given to module DLZDLBL2 when all DBDs have been processed. 

Module DLZDLBL2 finishes the processing of the SDBs. It acquires and 
builds the intent list, including propagation of intent, and initializes 
any field level sensitivity control blocks required. The PCB is moved 
to its proper location and the JCB, level table, and DSGs are built. 
Control is passed to module DLZDLBL3. 

The last module, DLZDLBL3, builds the index maintenance PCB if one is 
required, performs some additional clean-up, and packages and outputs 
the DMBs and the PSB to either SYSLNK or SYSPCH. If a utility PSB is 
required, module DLZDPSBO is called to build it, and module DLZDLBLO is 
repealled at entry PSBPASS to initialize it. 



Interfaces - DLZDLBLO - DLZDLBL3 

These modules interface with th,e following modules: 

DLZDPSBO * Called to build a utility PSB 

DLZLELMO • Called to format and write error message 

Register Contents on Entry 

Rl - PST address 

R13 • Save area address 

R14 - Return address 

R15 • Ent;ry point address 

Register Contents on Exit 

All registers are restored* The return code appears in PSTERCOD of the 
PST. 

PSTERCCD * Valid return 
PSfERCOD * Errors encountered 
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DLZDPSBO - UTILITY PSB BUILDER 

This irodule is called by the application control blocks builder module 
(DLZDLBLO) to dynamically construct a special utility PSB from a 
specific BBD« The created PSB is in PSBGEN format. A GETVIS is issued 
to obtain storage necessary to create the PSB, The created PSB is 
sensitive to all segments for the data base. 

Register Content on Entry 

Rl • Address of parameter list 

R13 - Save area address 

R14 - Return address of DLZDLBLO 

R15 - Entry point 

The parameter list consists of a DBD address and a PSB address. 

Registers on Exit 

All registers are restored except R15 which contains a return code 
passed to DLZDLBLO. 

R15 = Valid return 

R15 * Errors encountered 
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DATA BASE LOGICAL RELATIONSHIP UTILITIES 



DLZURPRO " PREREORGANIZATICN 

The purpose of this module is to examine input control cards provided by 
the user, and, based upon the information contained in DL/I control 
blocks, to generate a control data set for use by other programs 
concerned with the resolution of logical and index relationships. 

The input control cards for this program indicate the names of data 
bases that a user wishes to initially load or to reorganize. The 
control blocks for each segment of each data base listed on an input 
control card are examined. For each logical relationship in which a 
segment participates, a prefix resolution check is performed. This 
check consists of generating a bit map reflecting the prefix fields 
involved in the logical relationship, and then checking the bit map 
against a table that indicates the fields which must be resolved for the 
types of data bases in which the logical parent and the logical child 
reside. For purposes of the prefix resolution check, the type of data 
base is considered to mean an initially loaded data base, a reorganized 
data base, or another data base (not reorganized or loaded, but 
logically related to a data base that is reorganized or loaded). If the 
bit map and the table entry match yields a nonzero value, prefix fields 
must be resolved in either or both the logical parent and logical child. 

If prefix fields must be resolved, a control list entry is built for the 
logical parent and/or the logical child. This control list entry 
indicates the fields to be resolved, the work data set record format 
options to use, etc. As control data set list entries are built, each 
record is calculated to determine a maximum record length. The largest 
size is saved and put into field LESRTSZE when the control data set is 
written. The prefix resolution utility (DLZURGIO) reads this value and 
passes it to SORT. 

After generating the control list, the data bases to be scanned, loaded, 
or reorganized are listed. The scan list is punched if requested. The 
control list is then written to the control data set. 

control Blocks - DLZURPRO 

• Control file consisting of one or more records, each with a pointer 
to the next block of control file and an airea containing one or more 
control list entries. 

• List entry. 

• Secondary list entry. 

Interfaces « DLZURPRO 

The interface with the reorganization message module (DLZURGMO) is 
through the tables provided in that module. See the description of that 
module for table format- 

The interface with batch initialization to load the required blocks 
dynamically is accomplished with the DLZBLKLD macro. 

Error codes and Handlinci - DLZURPRO 
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This program audits all input control cards and verifies the consistency 
of DL/I control blocks. Any errors encountered cause one or more 
messages to be generated. Refer to DL/I DOS/VS Messages and Codes for 
details, 

PLZURGSO - DB SCAN 

This module searches one or more data bases for all segments that are 
involved in logical relationships. For each such segment, DLZURGSO 
generates one or more output records, depending upon the relationships 
in which that segment is involved. The output work data set of this 
program serves as one of the inputs to the prefix resolution utility. 

This program scans data bases as indicated either by scan control cards 
or by the control data set generated by the prereorganization program. 
If scan control cards are present, they are checked for consistency with 
the DL/I control blocks. Data base scanning is done by segment type for 
HDAM and HIDAM data bases. If scan control cards are provided for 
segments in an HDAM or a HIDAM data base, work data set records are 
generated only for those segments listed on scan control cards. 

After the segments are read into core, control is passed to the work 
data set generator module (DLZDSEHO). DLZDSEHO generates any necessary 
output work data set records based upon information contained in the 
control data set. It then returns control to this program (DLZURGSO). 

Interfaces • DLZURGSO 



Module DLZURGSO interfaces with the reorganization message module 
(DLZURGMO) through the tables provided in that module. See the 
description of that module for table format. 

The interface with the work data set generator module (DLZDSEHO) is as 
described in the documentation for that module. 

The interface with the buffer handler module (DLZDBHOO) is as described 
in the documentation for that module. The buffer handler module is used 
to directly access records in a data base. 

The interface with batch initialization to load the required blocks 
needed for processing is accomplished with the DLZBLKLD macro. 



Error Codes and Handling - DLZURGSO 

This program audits all input control cards and verifies the consistency 
of DL/I control blocks with the control data set. Any errors 
encountered cause one or more messages to be generated. Refer to DL/I 
DOS/VS Messages and Codes . 



ABENDS - DLZURGSO 

If an input card is read with "ABEND" in columns 1-5, a dump (PDUMP) 
will be taken if an error condition is detected. This should always be 
done on a rerun of this utility if an APAR is to be submitted because of 
an error return code. 
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DLZDSEHO - WORKFILE GENERATOR 

This module generates the work file records that are required to resolve 
logical and/or index relationships after one or more data bases have 
been initially loaded or reorganized. This program is used by the HD 
reload (DLZURGLO) and scan (DLZURGSO) utility programs provided by DL/I 
DOS/VS, It is also called automatically by internal DL/I modules 
(DLZDDLEO and DLZDXMTO) when a data base is initially loaded by a user- 
written program. 

The general operation of this program consists of creating one or more 
work file records for each segment that is initially loaded, reloaded, 
or scanned, if that segment is involved in at least one logical or index 
relationship. The work file records reflect the new location of each 
segment and, if the data base is being reloaded, its old location* Each 
work file record also contains related information that indicates the 
data bases and segments involved in the logical or index relationship 
described by the record, their old pointer values, etc. 

This program generates all work file records that are used as input by 
the data base prefix resolution module (DLZURGIO). The format of each 
outp^ut record generated by this program (DLZDSEHO) is as described for 
input of the data base prefix resolution module (DLZURGIO). 

This module contains a CSECT which is also used by scan (DLZURGSO) and 
index maintenance (DLZDXMTO) to open the work file DTF. within this 
routine is a subroutine (FINDDTF) which is also used by scan to 
determine the correct DTF (disk or tape) to use for a given file 
depending on the assignment for it. 

DLZDSEHO is loaded by batch initialization when the PROCOPT is 'load' or 
when HD reload or scan are to be executed. The primary entry point 
address is found in SCDDSEHO. The DL/I termination routine will close 
the work data set. 

Interfaces ^ DLZDSEHO 

The first seven fullwords of the CSECT contain information to be used by 
the modules which interface with DLZDSEHO. These words concern the work 
data set and entry points or addresses needed by scan (DLZURGSO). 

Displ. from 
Entry Point 
DLZDSEHO contents 

-28 Base address of this module 

-24 Address of LPLCSV - information needed by scan 

-20 Address of TEST - entry point when called by scan 

-16 Address of FINDDTF - a subroutine used by scan 

-12 Address of OPENWORK - entry point of routine 
to open WORKFIL file 

-8 Address of work area available to build output 

record 

-4 Address of opened work file DTF. 

If this field is zero, the file is not open. 
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• When invoked during initial data base load or during data base 
reorganization, the following interface is used: 

Entry Point 

DLZBEGIN (Address found in SCDDSEHO) 



Register Contents 

Rl - PST 

R13 - Save area 

R14 ^ Return address 

R15 - Entry point address 



Control Blocks 



JCBPRESF • Operation type (FUNCASRT or FUNCISRT) 
PSTWRKl - SDB address 

Exit 

Return to calling program with a return code in register 15. The values 
are: 

(X*0") = Successful completion 

4 (X"a*) - WORKFIL could not be opened (IGN was specified). 

This is not an error condition if the user does not 
wish to create a work file. 

8 (X"8*) = sort field size exceeded 

12 (X*CM = GETVIS error occurred 

16 (X^'IOM = Invalid DL/I control blocks 

20 (X"14«) = Length of PCB key feedback area is zero 

m (X*18") = I/O error occurred on WORKFIL or CONTROL data set, 

28 (X*1C*) = CONTROL or WORKFIL data set could not be opened 
(ir^valid or unassigned device) 

• When the OPENWORK routine is called by scan (DLZURGSO) or index 
maintenance (DLZDXMTO) , the following interface is used: 

Entry Point 
OPENWORK 

Register Contents 

R13 - Caller's save area address 

R14 - Return address 

R15 - Entry point address. 
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Exit 

All registers are restored to entry condition. Return is made to the 
address in RIU plus the displacement if an unknown or invalid device 
is specified or 4 if WORKFIL is successfully opened. 

• When invoked during a data base scan, the following interface is 
used: 

Entry Point 
TEST 

Register Contents 

R3 • Location for prefix parameter list area for segment just read 

R5 • Secondary list entry 

R6 • PSDB 

R7 - SDE 

R9 - PCE 

RIO • PST 

Rll - Location of DTF for work data set (roust be open) 

R12 - Ease address for DLZBSEHO 

R13 • Save area for use by DLZDSEHO 

Rl'5 - Entry point TEST 

control Blocks 

PSTWRKl Byte - Operation type (FUNCIHPS) 
Byte 1*3 SDB address 

Exit 

Return to calling program with return code in register 15 as for entry 
point DLZBEGIN. 

• When the FINDBTF routine is invoked by scan, the following interface 
is used: 

Entry Point 

FINDDTF 

Register Contents 

RO - System logical unit number in hex 

R2 - Address pf disk DTF 

R3 - Address of tape DTF (or 0, if not an option) 

R13 - Caller's save area address 

R14 - Return address 

R15 • Entry point of FINDDTF 
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Exit 

Register 15 * address of chosen DTF 

All other registers are restored to entry conditions. Return is made to 
the address in R14 plus the displacement if an unknown or invalid 
device specified or 4 if successful completion. When error return to 
R14+0 is made, R15 is zero if IGN was specified, or nonzero otherwise. 

DLZURGIO - PREFIX RESOLUTION 

This module aiccumulates 1:he information generated on work data sets 
during the load and/or reorganization of one or more data bases. It 
produces an output data set that contains the prefix information needed 
to complete the logical and/or index relationships defined for the data 
base(s) . 

Operation of this program centers around at least one and possibly two, 
phases of the DOS Sort/Merge program execution. In the first phase, the 
Sort/Merge program is attached by this program. All work data set 
records generated during data base initial load, reorganization, or scan 
are input to the sort program. All input records are sorted such that 
all work data set records associated with a given occurrence of a 
logical parent follow the work data set record describing that logical 
parent. On exit from the first phase sort, this program has available 
the information needed to resolve the logical parent pointers that 
reside in logical children, the counter field and logical child pointers 
in the logical parent, and the logical twin pointers in the logical 
child (if a sequence field is carried in the work data set record). Any 
unnecessary records are dropped before entering the second sort phase. 
The second phase of this program is not executed if only index 
relationships need to be resolved. 

In the second phase of this program, the Sort/Merge program is again 
attached. In this sort execution, the output records from phase one are 
sorted according to data base name and physical location within data 
base of each segment that must be updated by the prefix update program. 
On exit from the second phase sort, any remaining logical twin pointers 
are resolved, and further accumulation of logical parent counter fields 
is performed. Any records not actually necessary to update a data base 
are dropped at this time. 

This program uses the control data set generated by the 

prereorganization program to govern its general operation. That is, the 
lists in the control data set indicate prefix fields to be resolved, 
etc. The pre-reorganization utility also calculates the maximum record 
length for SORT records and stores the size in the control data set 
(LESRTSZE). The prefix resolution utility reads this value and passes 
it to SORT. 

control Blocks * DLZURGIO 

• Input work file record - DLZURWFl 

• Output work file record • DLZURWF3 
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Error Codes and Handlincr - DLZURGIO 

This prograiTi audits all input work data set records for consistency and 
for correspondence with the control list provided with the control data 
set. Any errors encountered cause one or more messages to be generated. 
Refer to the DL/I DOS/VS Messages and Codes 

DLZ13RGP0 - PREFIX UPDATE 

This module reads the input work data set provided by the data base 
prefix resolution module, reads the data base segment indicated by each 
record of the input work data set, and applies the prefix changes 
indicated by the work data set record to the segment read into main 
storage. 

The input work data set is sorted in data base and segment physical 
location order by the data base prefix resolution module (DFSURGlO) to 
afford most efficient update of each data base by this module. The 
format of each input record read by this program is as described for 
output of the data base prefix resolution module. 

One or more input work data set records may be present for each segment 
that participates in logical or index relationships* The records are 
successively applied to the prefix of each segment affected, and the 
updated segment is written to its storage device. The prefix fields 
updated by this program include the logical parent, logical twin, and 
logical child pointer fields, and the counter fields associated with 
logical parents. 

Interfaces - DLZ13RGP0 

The interface with the reorganization message module (DLZURGMO) is 
through the tables provided in that module. See the description of that 
module for table format. 

The interface with the language interface module (DLZLIOOO) is as 
described in the documentation for that module. The DL/I "ISRT" and 
"GHU" calls are issued by this program. 

The interface with the buffer handler module (DLZDBHOO) is as described 
in the docuKientation for that module. The buffer handler module is used 
to directly access records in a data base. 

The interface with batch initialization to load the required blocks 
dynamically is accomplished with the DLZBLKLD macro- 

Error Codes and Handling - DLZURGPO 

This program audits all input work data set records for consistency with 
data base control blocks, checks all data base update operations, and 
checks input control card information. Any errors encountered cause one 
or more messages to be generated. Refer to the DL/I DOS/VS Messages and 
Codes. ^ 
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DLZURGMO - DB REORGANIZATION MESSAGE 

This module contains messages used by the following utilities: 
preorganization (DLZURPROy, scan (DLZURGSO)^ prefix resolution 
(DLZURGlO)r and prefix update (DLZURGPO). The module consists of the 
two tables defined below. 

Control Blocks - DLZURGMO 

!• Message Length and Offset Table 

One 4-byte table entry exists for each message. Each U^byte entry 
contains the message length and offset. 

2. Message Table 

One variable-length entry is present for each message. Each entry 
contains the text of the message. The length is found in the 
message length and offset table. 

Interfaces - DLZURGMO 

This module contains messages that are used by the following modules: 

DLZURPRO (prereorganization) 

DLZURGSO (scan) 

DLZURGIO (prefix resolution) 

DLZURGPO (prefix update) 

TRACE PRINT UTILITY 

DLZTPRTO - TRACE PRINT UTILITY 

The Trace Print Utility is used to format and print trace entries 
previously written to a tape or disk by the CICS/VS extra partition 
dataset facility. The format of the output records on SYSLST is the 
same as those written directly to SYSLST by the Trace Facility. Trace 
Print Utility processing is as follows: 

1. The utility opens the reader (SYSIN) , printer (SYSLST), and console 
log (SYSLCG). 

2. A read is issued to SYSIN, looking for a TI statement. If present, 
the fields on the statement are validated and saved. Further reads 
are issued to SYSIN until EOF is returned. All statements read from 
SYSIN are recorded on SYSLST . 

3. When End-of-File is reached on SYSIN, the reader is closed. 

4. A GETVIS is issued to acquire sufficient storage for two trace input 
buffers. The buffer size will either be the default of 3276 7 bytes, 
or the size specified on the TI statement. 

5. The device assigned for trace input is then checked by the DLZDVCE 
macro routine. If the device is a valid tape or disk, the 
corresponding DTF is modified and the file opened for input. 

6. Trace records are then read from the input file until End-of-File is 
returned. 
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7« Trace entries are processed from the input buffer one at a time 
until all of the entries in the record are printed. When the last 
entry of the record is processed, control is returned to the read 
routine, 

8- Any errors detected will be written to SYSLST and/or SYSLOG. If no 
errors are detected, a message indicating successful completion is 
written. 
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SECTION 4: DIRECTORY 



This table gives the following information for all DL/I DOS/VS modules: 

• CORE IMAGE LIBRARY 

The name of the DL/I DOS/VS phase residing in the core image library. 

• CS£CT(S) /ENTRY POINT (S) 

The CSECTs that com.prise each PHASE. Any indented name under a CSECT 
is an entry point within that CSECT. If the indented name is 
preceded by •**, it designates a routine within the CSECT and may, or 
may not, appear on the link-edit map. Unreferenced entry points have 
been emitted. 

• RELOCATABLE LIBRARY 

The name(s) of the module (s) in the relocatable library which are 
needed fcr linkage editing. 

• SOURCE LIBRARY 



The naire(s) of the module (s) in the source statement library. For 
each module, source code listings are available on microfiche (under 
the module name). 

CORE ID 

The core ID for the applicable modules. This is located near the 
beginning address of each module and is usually followed by the 
version, release, level, and latest PTF number applied. 

SUPPLEMENTARY INFORMATION 

The entry SVA means that the module concerned is eligible to be 
loaded into the shared virtual area (SVA). Any other entry in this 
column is the entry point name that must be present on the END card 
when assembling this module, for example, END DLZBEGIN. 

FIGURE REFERENCE 



The figure number that is shown after the module name refers to the 
figure number of the module's HIPO diagram in Section 2 of this 
manual. 
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CORE 

IMAGE 

LIBKARY 



CSECT(S)/ 

ENTRY 
POINT (S) 



RELO 
LIBRARY 



SOURCE 
LIBRARY 



CORE 

ID 



SUPPL 
INF 



SYSTEM CONTROL MODULES 



** Batch Initialization ** (See Figure 2-3) 



DLZRRCOO 



DLZRRCOO 
DLZMMSGT 



DLZRRCOO 
DLZMMSGT 



DLZRRCOO 

♦ERRORMSG 

DLZMMSGT 

DLZRDR 

DLZCONSL 

DLZRRCIO 

♦DLZRRAOO 

♦DLZPCCOO 

♦DLZDBLMO 

♦LOADDMBS 

♦PCBROUT 

♦DLZCPIOO 

♦DMELOADR 



♦♦ Batch Nucleus ♦♦ (See Figure 2-U) 

DLZENUCO SCECSECT DLZBNUCO DLZBNUCO 

SCDSTART 

♦DLZIWAIT 

♦DLZPRHBO 

♦DLZABEND 

♦♦ Online Initialization** (See Figure 2-5) 

DFHSIDL DLZOLIOO DLZOLIOO DLZOLIOO 



DLZOLIOO 
♦DLZCPIOO 



**Online Nucleus** (See Figure 2-6) 

DLZNUCxx DLZODPOO DLZODP DLZODP 
DLZODPOl 
DLZODP02 
DLZODP03 
DLZODP04 
DLZODP05 
DLZOPD06 
DLZOPD07 
DLZPRHOO 
DLZCLTOO 
DLZOLTOl 
DLZOLT02 
DLZISCOO 
DLZISCOl 
DLZISC02 
DLZOWAIT 
DLZERMSG 
DLZOVSEX 
XX is the result of ACT generation. 



DLZRRCOO 



DLZBNUCO 



DLZOLIOO 



DLZNUCxx 
DLZODPOl 
DLZODP02 

DLZODP04 
DLZODP05 



DLZPRHOO 
DLZOLTOO 



DLZISCOO 



DLZOWAIT 
DLZERMSG 
DLZOVSEX 



Note: 

** DL/I Online System Termination ** (See Figure 2-7) 

DLZSTPOO DLZSTPOO DLZSTPOO DLZSTPOO 



DLZRRCST 



DLZODP 
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CORE 
IMAGE 
LIBRARY . 



CSECT(S)/ 
ENTRY 
POINT (S) 



DL/I FACILITY MODULES 



RELO 
LIBRARY 



SOURCE 
LIBRARY 



CORE 
ID 



SUPPL 
INF 



** Call Analyzer ♦♦ (See Figure 2-8) 
DLZDLAOO DLZDLAOO DLZDLAOO DLZDLAOO 
DLZDLAOl DLZDLAOl DLZDLAOl 



*♦ Retrieve ** (See Figure 2-9) 



DLZDLROO 



(DLZDLROO) 



DLZDLROO 
DLZDLRIO 
DLZRETNO 
DLZEODCO 
DLZGERCO 
DLZGERO 
DLZGETSO 

DLZCLRPO 
DLZWIPEO 
DLZMOVAO 
DLZMOVBO 
DLZDELTO 
DLZPSDBO 
DLZHUNTO 
DLZSETLO 
DLZBHO 
DLZSSDBO 
DLZNOOPO 
DLZCONCO 

DLZSSAO 
DLZTAGO 
DLZLTWO 
DLZNOSSO 

DLZHIDAO 
DLZHDAMO 
DLZHISAO 
DLZSTLAO 
DLZSTLGO 
DLZUPDTO 
DLZKDTEO 
DLZPCHKO 

DLZISRTO 
DLZVLRTO 
DLZAREJO 
DLZVLCHO 
DLZXDFTO 
DLZHSAMO 
DLZALTSO 

DLZLOGRO 
DLZRETKO 
DLZRETIO 
DLZKDRKO 
DLZKDTLO 
DLZUPDCO 
DLZUPDLO 
DLZAPSTO 
DLZYENTO 
DLZYSTCO 
DLZYENDO 
DLZDEQO 



DLZDLRAO 



DLZDLRAO 



DLZDLAOO 
DLZDLAOl 

DLZDLRAO 



SVA 

DLZEPDLA 

SVA 



SVA 



DLZDLRBO 



DLZDLRBO 



DLZDLRBO 



DLZDLROO 



DLZDLREO 



DLZDLROO 



DLZDLREO 



DLZDLROO 



DLZDLREO 



DLZDLRFO 



DLZDLRFO 



DLZDLRFO 



DLZDLRDO 



DLZDLRDO 



DLZDLRDO 
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CORE 

IMAGE 

LIBRARY 



RELO 
LIBRARY 

DLZDLRGO 



SOURCE 
LIBRARY 

DLZDLRGO 



CSECT(SX/ 
ENTRY 
POINT (S) 

DLZPOSTO 

DLZSKPGO 

DLZSKPSO 

DLZSKPDO 

DLZSKPEO 
DLZRLNKD DLZRLNKD DLZRLNKD 

♦♦ Load/Insert ** (See Figure 2-10) 

DLZDDLEO DLZDDLEO DLZDDLEO DLZDDLEO 
HDROUTIN 
HSROUTIN 

** Delete/Replace *♦ (See Figure 2-11) 

DLZDLDOO DLZDLDOO DLZDLDOO DLZDLDOO 

DLZDLDSO 
DLZDLDDO 
DLZDLDAO 
DLZDLDRO 

♦* Index Maintenance ** (See Figure 2-12) 

DLZDXMTO DLZDXMTO DLZDXMTO DLZDXMTO 

** HD Space Management ** (See Figure 2-13) 

DLZDHDSO 



DLZDHDSO 
DLZGGSPC 

DLZRRTRN 
DLZFRSPC 
DLZLLCLC 
DLZMMLCT 
DLZRRHPL 
DLZRCHBK 

DLZRCBK2 
DLZMMUDT 

DLZMMOFF 

DLZMMON 
DLZRRHMP 
DFSRLO30 
♦SNAPDCB 
♦SNPSW 
♦SNPCNT 
DLZDCIOO 



DLZDHDSO 
DLZGGSPO 

DLZFRSPO 
DLZLLCLO 
DLZMMLCO 
DLZRCHPO 
DLZRCHBO 

DLZMMUDO 



DLZRRHMO 
DLZDHDSO 



DLZDHDSO 
DLZGGSPO 

DLZFRSPO 
DLZLLCLO 
DLZMMLCO 
DLZRCHPO 
DLZRCHBO 

DLZMMUDO 



DLZRRHMO 
DLZDHDOO 



DLZDCIOO 



DLZDCIOO 

♦* Open/Close ♦* (See Figure 2-lU) 
DLZDLOCO DLZDLOCO DLZDLOCO DLZDLOCO 
** DB Buffer Handler ♦♦ (See Figure 2-15) 

DLZDBHOO DLZDBHOO DLZDBHOO DLZDBHOO 

DLZEBHOO 
♦MAINROUT 

ROULINK 
♦PREPENQ 
♦PREPDEQ 
♦AEEXIT 
♦BOTTOUSE 



CORE 
ID 

DLZDLRGO 



DLZRLNKD 



DLZDDLEO 



SUPPL 
INF 



SVA 



DLZDLDOO 



SVA 
DELREPEP 



DLZDXMTO 



DLZDHDSO 



SVA 



SVA 



DLZDLOCO 



DLZDBHOO 



SVA 
DLZEBHOO 
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CORE 

IMAGE 

LIBRARY 



CSECT(S)/ 
ENTRY 
POINT (S) 

♦ALLDEQ 

♦BFFERREL 

♦RETURN 

DLZDBH02 

♦WRITE 

♦READ 

♦HSREAD 

♦HSWRITE 

♦LOWRITE 

♦PUTKY 

♦MSPUT 

♦STLEQ 

♦STLBG 

♦GETNX 

DETIOERR 
♦TSTPSTl 
DLZDBH03 
♦ENQ 
♦DEQ 

♦CONVADNR 
♦MRKEMPT 
♦PGUSR 
♦CONVNARD 



RELO 
LIBRARY 



DLZDBH02 



SOURCE 
LIBRARY 



DLZDBH02 



DLZDBH03 DLZDBH03 



♦♦ DB Logger ♦♦ (See Figure 2-16) 



DLZRDBLO 



(DLZRDBLO) 



DLZRDBLO 
DLZICBLO 
ICFILAl 
LOGOUT 
LSCDADDR 

IJFUZZZN 
IJFUZZZZ 
IJ2N0017 

ONLLOGWR 
SAVE 
PRIVEGB 



DLZRDBLO 

IJFUZZZN 
DLZRDBLO 



DLZRDBLO 



DLZRDBLO 



♦♦ CICS Journal Logger ^* (See Figure 2-^17) 

DLZRDELl DLZRDBLl DLZRDBLl DLZRDBLl 
DLZRDBLO 

♦♦ Queuing Facility ♦♦ (See Figure 2-23) 



DLZQUEFO 
DLZQUEFW 



DLZQUEFO 
DLZQUEFW 



DLZQUEFO 
DLZQUEFW 



DLZQUEFO 
DLZQUEFW 



CORE 
ID 



DLZDBH02 



DLZBFH03 



DLZRDBLO 



DLZRDBLl 



DLZQUEFO 
DLZQUEFW 



♦♦ Field Level Sensitivity Copy ♦♦ (See Figure 2-UO) 
DLZCPYIO DLZCPYIO DLZCPYIO DLZCPYIO 



DLZCPYIO 
DLZSEGCV 



DLZCPYIO 
DLZSEGCV 



SUPPL 
INF 



DLZRDBLO 



DLZRDBLl 



DLZQUEFO 



SVA 



MPS CONTROL MODULES 

♦♦ Start Transaction ♦♦ (See Figure 2-18) 

DLZMSTRO DLZMSTRO DLZMSTRO DLZMSTRO DLZMSTRO 



Licensed Material - Property of IBM 4-5 



CORE 

IMAGE 

LIBRARY 



CSECT(S)/ 
ENTRY 
POINT (S) 



RELO 
LIBRARY 



SOURCE 
LIBRARY 



CORE 
ID 



♦♦ Master Partition Controller ** (See Figure 2*19) 
DLZMPCOO CLZMPCOO DLZMPCOO DLZMPCOO DLZMPCOO 
♦♦ Batch Partition Controller ** (See Figure 2-20) 
DLZBPCOO DLZBPCOO DLZBPCOO DLZBPCOO DLZBPCOO 
♦* MPS Batch ♦♦ (See Figure 2-21) 



DLZMPIOO 



DLZMPIOO 



DLZMPIOO 



DLZMPIOO DLZMPIOO 
♦DLZMPRH 

DLZMINIT 
♦DLZMTERM 
♦DLZMMSG 
♦DLZMABND 
DLZCONSL 
DLZDIMOD 
DLZMMSGT DLZMMSGT DLZMMSGT 

♦♦ Stop Transaction ♦♦ (See Figure 2-22) 

DLZMSTPO DLZMSTPO DLZMSTPO DLZMSTPO DLZMSTPO 



SUPPL 
INF 



DLZMINIT 



DATA BASE RECOVERY UTILITIES 



** DB Data Set Image Dump ** (See Figure 2-25) 



DLZUDMPO 



DLZUDMPO 
IJ2M0101 
DLZDMPMO 
IJJFCBZD 
IJFSZZWN 

IJFVZZWN 
IJGQOCZZ 

IJGVOCZZ 



DLZUDMPO 
DLZUDMPO 
DLZDMPMO 
IJJFCBZD 
IJFSZZWN 

IJGQOCZZ 



DLZUDMPO 
DLZUDMPO 
DLZDMPMO 



DLZUDMPO 



♦♦ DB Change Acc\iitiulation ♦* (See Figure 2-26) 



DLZUCUMO 



DLZUCUMO 
DLZERRTN 
DLZUSPKL 
DLZWORK# 
DLZPRNT 
DLZSLOG 
DLZUCONS 
DLZUCCTO 
DLZUC150 

DLZUEX15 
DLZUC350 

DLZUEX35 
DLZUCERO 
DLZCUMMO 
IJFSZZWN 
IJFVZZWZ 
IJFSZZWZ 
IJGQICZZ 
IJGQIZZZ 



DLZUCUMO 



DLZUCCTO 
DLZUC150 

DLZUC350 

DLZUCERO 
DLZCUMMO 
IJFSZZWN 



IJGQICZZ 



DLZUCUMO 



DLZUCCTO 
DLZUC150 

DLZUC350 

DLZUCERO 
DLZCUMMO 



DLZUCUMO 



DLZUCCTO 
DLZUC150 

DLZUC350 

DLZUCERO 
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CORE CSECT(S)/ 










IMAGE ENTRY 


RELO 


SOURCE 


CORE 


SUPPL 


LIBRARY POINT (S) 


LIBRARY 


LIBRARY 


ID 


INF 


IJGQOCZZ 


IJGQOCZZ 








IJGQOZZZ 










IJJFCBZD 


IJJFCBZD 








IJJFCIZD 










IJ2M0014 


DLZUCUMO 


DLZUCUMO 






IJFUZZZZ 


IJFUZZZZ 








IJGUIZZZ 


IJGUIZZZ 








*♦ DB Data Set Recovery *♦ (See 


Figure 2-27) 






1 DLZURDBO BLZURDBO 
1 DLZURCCO 


DLZURDBO 


DLZURDBO 


DLZURDBO 


DLZURDBO 


DLZURCCO 


DLZURCCO 


DLZURCCO 


DLZURCCO 


DLZLIOOO 


DLZLIOOO 


DLZLIOOO 


DLZLIOOO 




CELTDLI 










DLZRDBMO 


DLZRDBMO 


DLZRDBMO 






IJJFCBID 


IJJFCBID 








IJJFCBZD 










IJJFCIID 










IJFSZZWN 


IJFSZZWN 








IJFVZZWN 










IJ2Jyi0038 


DLZURDBO 


DLZURBDO 






IJFUZZZN 


IJFUZZZN 








IJGUICZZ 


IJGUICZZ 








IJGQICZZ 


IJGQICZZ 








IJGVICZZ 










♦* DB Change Eackout* 


♦ (See Figure 2-28) 






DLZBACKO DLZBACKO 


DLZBACKO 


DLZBACKO 


DLZBACKO 




READAREA 










IJ2M0033 










DLZRDBCO 


DLZRDBCO 


DLZRDBCO 


DLZRDBCO 




DLZBACJMO 


DLZBACMO 


DLZBACMO 






DLZLIOOO 


DLZLIOOO 


DLZLIOOO 


DLZLIOOO 




ASMTDLI 










IJFUBZZZ 


IJFUBZZZ 








IJJFCBZD 


IJJFCBZD 








IJJFCIZD 










♦* Log Print Utility 


♦♦ (See Figure 2-39) 






DLZLOGPO DLZLOGPO 


DLZLOGPO 


DLZLOGPO 


DLZLOGPO 




DLZLGPCN 










DLZLGPiyiT 










DLZLPCCO 


DLZLPCCO 


DLZLPCCO 






DLZLGPMO 


DLZLGPMO 


DLZLGPMO 






IJJFCBID 


IJJFCBID 








IJJFCIID 










IJFUZZZN 


IJFUZZZN 








IJGUICZZ 


IJGUICZZ 









DATA BASE REORGANIZATION UTILITIES 



♦* HS DB Unload ♦♦ (See Figure 2-29) 



DLZURULO 



DLZURULO 
DLZRULMO 
IJJFCBZD 



DLZURULO 
DLZRULMO 
IJJFCBZD 



DLZURULO 
DLZRULMO 



DLZURULO 
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CORE 


CSECT(S)/ 








IMAGE 


ENTRY 


RELO 


SOURCE 


CORE 


LIBRARY 


POINT (S) 

IJFVZZWN 
IJGQOCZZ 
IJGVOCZZ 


LIBRARY 

IJFVZZWN 
IJGQOCZZ 


LIBRARY 


ID 


*♦ HS DB 


Reload ♦* 


(See Figure 


2-30) 




DLZURRLO 


DLZURRLO 


DLZURRLO 


DLZURRLO 


DLZURRLO 




DLZRRLMO 


DLZRRLMO 


DLZRRLMO 






IJJFCEZD 


IJJFCBZD 








IJGQICZZ 


IJGQICZZ 








IJGVICZZ 










IJFVZZWN 


IJFVZZWN 








IJFVZZWZ 








** HD DB 


Unload *♦ 


(See Figure 


2-31) 




DLZURGUO 


DLZURGUO 
BLZCONSL 


DLZURGUO 


DLZURGUO 


DLZURGUO 




DLZLIOOO 


DLZLIOOO 


DLZLIOOO 


DLZLIOOO 




CBLTDLI 










DLZRGUMO 


DLZRGUMO 


DLZRGUMO 






IJJFCBZD 


IJJFCBZD 








IJFUZZZN 


IJFUZZZN 








IJGUOCZZ 


IJGUOCZZ 








IJGUICZZ 


IJGUICZZ 






♦♦ HB DB 


Reload ♦* 


(See Figure 


2-32) 




DLZURGLO 


DLZURGLO 


DLZURGLO 


DLZURGLO 


DLZURGLO 




DLZLIOOO 


DLZLIOOO 


DLZLIOOO 


DLZLIOOO 




CBLTDLI 










DLZRGLMO 


DLZRGLMO 


DLZRGLMO 






IJJFCBZD 


IJJFCBZD 








IJGQICZZ 


IJGQICZZ 








IJGVICZZ 










IJFSZZWN 


IJFSZZWN 








IJFVZZZN 









SUPPL 
INF 



ACB UTILITY 



♦♦ ACB Creation *♦ CSee Figure 2-33) 



DLZUACBO 



DLZUACBO 

PRTMSG 
DLZDLBLO 
PSBPASS 
DLZDLBL4 
DLZDLBLl 
DLZDLBL2 
DLZDLBL3 
FREESTOR 
IJSYSLN 
PCHDTF 
DLZLBLMO 
DLZUSCHO 
INSRCH 
CLOSESCH 
DLZDPSBO 
IJJCPDIN 



DLZUACBO 
DLZDLBLO 



DLZDLBLl 
DLZDLBL2 
DLZDLBL3 



DLZLBLMO 
DLZUSCHO 



DLZDPSBO 
IJJCPDIN 



DLZUACBO 
DLZDLBLO 



DLZDLBLl 
DLZDLBL2 
DLZDLBL3 



DLZLBLMO 
DLZUSCHO 



DLZDPSBO 



DLZUACBO 
DLZDLBLO 



DLZDLBLl 
DLZDLBL2 
DLZDLBL3 



DLZLBLMO 
DLZUSCHO 



DLZDPSBO 
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CORE 

IMAGE 

LIBRARY 



CSECT(S)/ 
ENTRY 
POINT (S) 

IJJFCBZD 
IJJFCIZD 



RELO 
LIBRARY 

IJJFCBZD 



SOURCE 
LIBRARY 



CORE 
ID 



SUPPL 
INF 



DB LOGICAL RELATIONSHIP UTILITIES 



♦♦ Prereorganization ** (See Figure 2-3U) 



DLZURPRO 



DLZURPRO 
DLZLIOOO 
ASMTDLI 
DLZURGMO 
IJJFCBZD 
UGFOCZZ 



DLZURPRO 
DLZLIOOO 

DLZURGMO 
IJJFCBZD 
UGFOCZZ 



DLZURPRO 
DLZLIOOO 

DLZURGMO 



** DB Scan ** (See Figure 2-35) 



DLZURGSO 



DLZURGSO 
DLZCONSL 
DLZURGMO 
DLZLIOOO 

ASMTDLI 
IJJFCBZD 

IJJFCIZD 
IJFSZZWN 

IJFVZZZN 
IJGQICZZ 

IJGVICZZ 
IJGFICZZ 



DLZURGSO 

DLZURGMO 
DLZLIOOO 



DLZURGSO 

DLZURGMO 
DLZLIOOO 



IJJFCBZD 
IJFSZZWN 
IJGQICZZ 
IJGFICZZ 
*♦ Prefix Resolution ** (See Figure 2-36) 



DLZURGIO 



DLZURGIO 
DLZURGMO 
IJJFCBZD 

IJJFCIZD 
IJGFICZZ 
IJGQICZZ 

IJGVICZZ 
IJFSZZWN 

IJFVZZZN 

IJFVZZWN 
IJFFZZZN 
IJGQOCZZ 

IJGVOCZZ 
DLZX15S1 
DLZX15S2 
DLZX35S1 
DLZX35S2 



DLZURGIO 
DLZURGMO 
IJJFCBZD 

IJGFICZZ 
IJGQICZZ 

IJFSZZWN 



IJFFZZZN 
IJGQOCZZ 

DLZURGIO 



DLZURGIO 
DLZURGMO 



DLZURGIO 



♦* Prefix Update ** (See Figure 2-37) 



DLZURGPO 



DLZURGPO 

DLZURGMO 

DLZLIOOO 

ASMTDLI 

CELTDLI 

IJJFCBZD 

IJJFCIZD 



DLZURGPO 
DLZURGMO 
DLZLIOOO 



IJJFCBZD 



DLZURGPO 
DLZURGMO 
DLZLIOOO 



DLZURPRO 
DLZLIOOO 



DLZURGSO 



DLZLIOOO 



DLZURGIO 



DLZURGPO 
DLZLIOOO 
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CORE 

IMAGE 

LIBRARY 


CSECT(S)/ 
ENTRY 
POINT (S) 

IJFSZZWN 
IJFVZZZN 


RELO 
LIBRARY 

IJFSZZWN 


SOURCE 
LIBRARY 


CORE 
ID 


SUPPL 
INF 


(DLZURGPO) 


IJGQICZZ 
IJGVICZZ 


IJGQICZZ 








** Work File Generator 


** (See 


Figure 2-38) 






DLZDSEHO 


DLZDSEHO 

DLZBEGIN 
OPENWORK 
IJFSZZWN 

IJFVZZWN 
IJGFICZZ 
IJGQOCZZ 
IJGVOCZZ 


DLZDSEHO 

IJFSZZWN 

IJGFICZZ 
IJGQOCZZ 


DLZDSEHO 


DLZDSEHO 


DLZBE 



DIAGNOSTIC AND TEST MODULES 



** System Fcrniatted Dump ** 



DLZFSDPO DLZFSDPO 


DLZFSDPO 
DLZTRPRO 


DLZFSDPO 


DLZFSDPO 


** DL/I Tracing Facility *♦ 






user DLZTRACE 


user 


DLZTRACE 


DLZTRACE 


chosen 


chosen 






DLZTRPRO 


DLZTRPRO 


DLZTRPRO 


DLZTRPRO 


IJJFCBIC 


IJJFCBIC 






** DL/I Test Program - 


- Batch *♦ 






DLZDLTXX DLITCBL 


DLZDLTXX 


DLZDLTXX 


DLZDLTXX 


DLZSNAP 








DLZLIOOO 


DLZLIOOO 


DLZLIOOO 


DLZLIOOO 


CELTDLI 








IJGFIZZZ 


IJGFIZZZ 






IJJFCBID 


IJJFCBID 






IJJFCIID 








♦* DL/I Test Program - 


- Online ** 






DLZDLTXY DLITCBL 


DLZDLTXY 


DLZDLTXY 


DLZDLTXY 


DLZSNAP 








DLZLIOOO 


DLZLIOOO 


DLZLIOOO 


DLZLIOOO 


CELTDLI 








IJGFIZZZ 


IJGFIZZZ 






IJJFCBID 


IJJFCBID 






IJJFCIID 









** Online Task Formatted Dump ** 

DLZFTDPO DLZFTDPO DLZFTDPO DLZFTDPO 

** Trace Print Utility ** (see figure 2-41) 



DLZTPRTO 



DLZTPRTO 
DLZTPRMO 



DLZTPRTO 
DLZTPRMO 



DLZTPRTO 
DLZTPRMO 



DLZFTDPO 



DLZTPRTO 
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CORE 


CSECT(S)/ 










IMAGE 


ENTRY 


RELO 


SOURCE 


CORE 


SUPPL 


LIBRARY 


POINT (S) 

IJJFCEIC 
IJJFCIZD 
IJFVZZZZ 
IJGVIEZZ 
IJ2M0021 


LIBRARY 

IJJFCIZD 
IJFVZZZZ 
IJGVIEZZ 
IJ2M0021 


LIBRARY 


ID 


INF 
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Q 
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SECTION 5^ DATA AREAS 



This section describes the itiajor data areas used by DL/I DOS/VS. The 
description of each data area generally includes: 

• Its DSECT name. 

• The symbolic names of the fields and flags. 

• The displacement of each field, in both decimal and hexadecimal. 

• The length of each field. 

• An alphabetic listing of all field and flag names (flags are 
indicated by asterisks). 

• The hexadecimal code of each flag. 

The data areas are documented in alphabetical order as listed in the 
Contents of this publication. 

This section also describes the DL/I partition in a batch environment 
and illustrates the relationship of the DL/I control blocks. In 
addition, the description and general structure is given for the data 
management block (DMB) , the program specification block (PSB) , and the 
DL/I buffer pool control blocks. 
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THE EL/I PARTITION AND CONTROL BLOCK RELATIONSHIP 



The following text describes the DL/I partition in a batch environment 
and illustrates the relationship of the DL/I control blocks described in 
this section. 



THE DL/I EATCH PARTITION 

Figure 5*1 is a map of main storage in the DL/I DOS/VS batch partition. 
Storage is allocated from the bottom or lowest storage address to the 
top or highest storage address of the partition. The eight areas in the 
DL/I batch partition are as follows: 

• Area 1 contains the DL/I nucleus. The SCD is the first control block 
in the nucleus and contains the DL/I copyright information. This 
block also contains the entry point address for every module in the 
DL/I system. The PST prefix , PST, and PSB directory (PDIR) are in 
this area. There is one entry in the PSB directory (PDIR) . 

• Area 2 contains the DL/I program request handler, DLZPRHBOr which is 
loaded during DL/I initialization. It is part of the batch nucleus 
module (DLZENUCO). 

• Area 3 contains the PSB intent list, PSB, and one DMB directory 
(DDIR) for each DMB referenced by the PSB. The DMB directory is 
created dynamically during DL/I initialization. 

• Area 4 contains DMBs loaded from the DOS/VS Core Image Library by the 
DL/I Batch Initialization module. Randomizing modules are loaded 
after the DMBs for HDAM. They are followed by VSAM control blocks, 
index management modules if secondary indexes are used, and by 
segment compression modules if variable length segments are used. 

• Area 5 contains the DJj/I buffer pool control blocks. These blocks 
are created dynamically. There are one buffer pool prefix, one 
subpool information table for each subpool specified, one DMB subpool 
directory entry for each DMB, and 2*32 buffer prefixes for each 
subpool specified. 

• Area 6 contains the DL/I I/O buffers which comprise the buffer pool. 
There are 2-32 buffers for each subpool specified. Each subpool is 
aligned on a 2K page boundary. 

• Area 7 contains the DL/I action modules and the user trace module if 
requested. 

• Area 8 contains the user batch application program. 
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HIGH STORAGE 
LOCATION 



AREA 



PAGE BOUNDARY 



DL/I BATCH APPLICATION PROGRAM 



PAGE BOUNDARY 

► 



TRACE MODULE - (USER NAMED) 



OPEN/CLOSE - DLZDLOCO 



LOAD/INSERT - DLZDDLEO 



SPACE MANAGEMENT - DLZDHDSO 



INDEX MAINTENANCE - DLZDXMTO 



DELETE/REPLACE - DLZDLDOO 



CALL ANALYZER - DLZDLAOO 



DATA BASE LOGGER - DLZRDBLO 



DL/I RETRIEVE - DLZDLROO 



COMMON BUFFER HANDLER - DLZDBHOO 



BUFFER POOL (NOTE) 



BUFFER POOL CONTROL BLOCKS (NOTE) 



PAGE BOUNDARY 



LOW STORAGE 
LOCATION 



VSAM CONTROL BLOCKS, INDEX MANAGEMENT MODULES, 
AND SEGMENT COMPRESSION MODULES 



DMB POOL AND RANDOMIZING MODULES 



PSB INTENT LIST AND PSB 



DMB DIRECTORY (NOTE) 



APPLICATION PROGRAM REQUEST HANDLER - DLZPRHBO 



DL/I NUCLEUS - DLZBNUCO 
SCO - PST PREFIX - PST - PSB DIRECTORY 



DLZRRCOO - PARTLY OVERLAID BY DLZBNUCO 



NOTE: BLOCKS DYNAMICALLY CREATED OR FORMATTED 



Figure 5-1. Map of Main Storage in the DL/I Batch Partition 
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BL/I CONTROL ELOCK RELATIONSHIP 

The purpose of this section is to show the relationships of the various 
DL/I control blocks and provide a means by which the user can quickly 
find his way to these control blocks. The following discussion 
references Figure 5-2, 

The SCD is the major control block in the DL/I system. It is located at 
the beginning of the DL/I nucleus. The SCD contains DL/I copyright 
information, entry point addresses of the DL/I logic module r and 
pointers to the following DL/I control blocks: 

• The buffer pool prefix, which is the first block of the buffer pool 
control blocks. 

• The first PSB directory from which the first PSB and PSB intent list 
may be obtained. In a batch system, there is only one PSB directory, 

• The first DMB directory. There is one DNB directory for each DMB 
referenced by the PCBs. 

• The first PST prefix from which the first PST may be obtained. There 
is only one PST prefix in a batch system. 

The PST, including the PST prefix, functionally relates the control 
blocks for DL/I and represents the batch or CICS/DOS/VS - DL/I online 
task being served by DL/I. The PST is the dispatching block and is the 
only parameter passed when calling another moduli. The address of the 
PST is contained in the PST prefix. The followinf pointers are 
available in the PST: 

• Caller's (user prograiti) parameter list 

• SCD 

• PSB directory for the task 

• PCB currently being accessed 

• I/O buffer to be used for the data base call (used by the buffer 
handler) 

• Subpool information table assigned to the data base (used by the 
buffer handler) 

• Buffer prefix which points to the I/O buffer containing the segment 
for the call (used by the buffer handler) 

There is one PSB directory entry and one PSB for each program that may 
be accessed by DL/I. In a CICS/DOS/VS - DL/J online environment, the 
maximum is 255; in batch, there can be only one. The PSB directory 
contains address pointers to the PSB and the PSB intent list. 

The PSB intent list is a variable-length control block and contains an 
entry for each DMB referenced by the PSB. Each entry contains the 
address of the DMB,. 

The PSB contains prefix information and one or more PCBs. For each PCB 

there is a JCE, which is made up of the following: JCB prefix, level 

table, and one or more SDBs. The PCB points to the JCB. The JCB 

contains working storage for the program's use of that data base and 

points to the level table. The JCB also points to the SDB for the root 4 

segment and the VSAM ACB for the data base (KSDS ACB if HISAM). The l| 

level table contains working storage for DL/I to store its positioning 
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data for each level of the data base. The level table points to the 
current level SDB, 

The SDB describes the user's logical use of the sensitive segment. 
There is one SDB for each segment to which the user is sensitive. Each 
SDB points to the corresponding PSDB in the DMB. 

The DMB directory contains the address of the DMB. Each DMB contains a 
prefix, one ACB extension for each data set in the DMB (two if HISAM) , 
one PSDB for each physical segment type, and one FDB for each field 
defined for a segment. In addition, there is one direct algorithm 
communication table (DMBDACS) if HDAM is used, and secondary list 
entries if HIDAM or HDAM with index or original relationships is used. 

The DMB prefj.x contains: 

• A two^byte relative offset to the first PSDB 

• A two-byte relative offset to the end of the last PSDB+1, which is 
either the first secondary list entry (HIDAM) or the first FDB 

• A four-byte pointer to DMBDACS if HDAM 

The ACB extension contains information about the data set as well as an 
address pointer to the VSAM ACE and RPL for the data set. 

Each PSDB contains: 

• A pointer to the first FDB for the segment 

• A pointer to the SDB for the active PCB which is sensitive to this 
segment type. If more than one PCB is sensitive to this segment 
type, the address of the SDB for the next PCB is contained in the 
active PSDB. 

The DMBDACS contains the address of the user's randomizing routine; most 
of the secondary list entries point to the DMB directory for the 
described index or logically related data base. 

The following items may be obtained from the buffer pool prefix: 

• The first subpool information table (immediately following the buffer 
pool prefix) 

• An address pointer to the first buffer prefix 

• An address pointer to the first DMB subpool directory entry 

The buffer prefix contains an address pointer to the I/O buffer which it 
references. 
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Buffer Pool 
Control Blocks 




Notes: 

1 . PCB shows the processing option from PSBGEN and 
segment name feedback. 

2. JCBTRACE functions and return codes. 

3. Pointer to STXITAB save area. 

4. Pointer of DMB log module. 

5. Pointer to User Parameter List. 

6. PSTFNCTN and PSTRTCDE give the internal function 
and return code resulting from a call. 
Pointer to requested data. 
Address of queuing facility work area. 



Figure 5-2, CL/I Control Block Relationships 
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DATA MANAGEMENT BLOCK - DMB 

A skeleton DME is created during DBD generation (DBDGEN) as part of the 
EBD. The DMB consists primarily of a description of each segment 
contained in the data base and information concerning the physical data 
base description. This is contained in ACB extensions or, in the case 
of HSAM^ in DTFs. The DBD is loaded into storage by the DL/I 
application control blocks creation and maintenance utility, which 
builds the DMB from the DBD created by DBDGEN. The DMB is then 
cataloged and link edited into a core image library. The DMB is moved 
to its execution^time location in the DMB pool by the application 
control blocks load and relocate module (DLZDBLMO). 

The DMB consists of the following sections: 

t A prefix section containing primarily offsets to subsections of the 

DME: 

• An ACB extension. For an HISAM organizaton, there is a pair of ACB 
extensions for each data base; a KSDS ACB and an ESDS ACB. If the 
data base contains only root segments, only the KSDS ACB extension is 
created. The ACBs are generated only when the blocks are loaded for 
execution by DLZDBLMO from the information in the ACB extensions. 

• A DTP extension if SHSAM or HSAM for input and output file. 

• A direct algorithm communication table if HDAM. 

• A compression section for each coropressable segment. 

• An index maintenance parameter section for each secondary exit 
routine. 

• A physical segment description block. 

• A secondary list to describe indexed fields or logical relationships. 

• Field description blocks describing each field in each segment. 

• A tape or DASD I/O module if SHSAM or HSAM« This iFOdule is included 
by the ACB utility. 



GENERAL STRUCTURE 



The general structure of the DMB is shown in Figure 5-3. 



DMB PREFIX 



DSECT Name: DMB 



ACS EXTENSION 



DSECT Name: DMBACBXT 



DTF EXTENSION 



DSECT Name: DMBDTFXT 



DIRECT ALGORITHM COMMUNICATION TABLE 
DSECT Name: DMBDACS 



COMPRESSION SECTION 

DSECT Name: DMBCPAC 



INDEX MAINTENANCE PARAMETERS 

DSECT Name: DMBXMPRM 



PHYSICAL SEGMENT DESCRIPTION BLOCK 

DSECT Name: DMBPSDB 



SECONDARY LIST 



DSECT Name: DMBSEC 



FIELD DESCRIPTION BLOCK 

DSECT Name: FDB 



Tape or DASD I/O Module 



Each DMB section is shown as a separate data 
area in Section 5 of this PLM, For the data 
area layout, see: 



DMB - DMB Prefix 



ACB - ACB Extension 



DACS 



HDAM Randomizing Routine 
Interface Table 



HDAM/HIDAM Variable Length 
CPAC — Segment Compression/Expansion 
Routine 



XMPRM 



PSDB 



HDAM/HIDAM User Secondary 
Index Suppression Routine 
Interface Table 



Physical Segment Description 
Block 



SEC — Secondary List 



FDB - Field Description Block 



Figure 5-3. General Structure of DMB 



i 
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PROGRAM SPECIFICATION BLOCK - PSB 

A PSE must be created for every user program which will run under DL/I 
control. The PSB is created in •'skeleton" format (principally PCBs 
only) by PSEGEN, The PSB must be cataloged and link edited into the 
Core Image Library. The PSB is loaded into main storage by the DL/I 
Application Control Blocks creation and Maintenance Utility program and 
expanded and completed by this utility. The expansion is performed by 
segment definition in the DED representing the associated data base. 
The expanded PSB is link edited into the Core Image Library. The PSB is 
moved to its execution-time location in the PSB pool by the application 
control blocks load and relocate module (DLZBBLMO). In expanded final 
format, the PSB consists of the following parts in the order specified: 

1. PSB prefix - of which the most important part is the variable-length 
PSB list: the address list of the PCBs in the PSB. A dope vector 
table fellows the PSB prefix for PL/I programs. 

2. A variable number of data base PCBs. For each data base PCB there 
is a JCE (job control block) consisting of the following parts: 

• JCE prefix 

• DSG (data set group) table. This table contains entries 
describing the data bases specifically used for this PCB. There 
are entries for all logically connected data bases , all primary 
HIBAM indexes r and a secondary index if used as the processing 
sequence. 

• Level table* This table provides memory of the last DL/I CALL. 

• SDE (segment description block). This block contains an entry 
for each segment to which the user has declared himself sensitive 
in the PCE. The SDB entry describes the sensitive segment. 

• work area for index maintenance, variable-length segment support, 
or miscellaneous function. These are allocated only when 
required (if any user PCE directly or indirectly refers to an 
index data base). 

• PSE work areas; of variable length depending on the requirements 
of the PCBs. 
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GENERAL STRUCTURE 



The general structure of the PSE is shown in Figure 5-4. 



Each P^B section is shown as a 
separate data area in Section 5 of 
this PLM. For the data area layout, 



/ 



One Data 
Base PCB\ 



Additional j 
Data Base \ 
PCBs I 



PSB PREFIX 


DSECT Name: 


PSB 


PCB DOPE VECTOR TABLE 

DSECT Name: 


DPPCB 


DATA BASE PCB 


DSECT Name: 


DBPCB 


JCB PREI^IX 


DSECT Name: 


JCB 


DSG TABLE 


DSECT Name: 


DSG 


LEVEL TABLE 


DSECT Name: 


LEV 


SDB 


DSECT Name: 


SDB 


• 

• REPEATED AS SHOWN ABOVE 

• 


INDEX MAINTENANCE WORK AREA 

DSECT Name: XWORKARA 


PCB WORK AREA 



PSB - PSB Prefix 



DPPCB - P^^^°P® 

Vector Table 

Program 
PCB —Communication 
Block 



Job \ 

JCB - Control 
Block 



DSG 



LEV 



Data Set 
Group 



Level Table 
Entry 



JCB 

includes 
\ DSG, 
/ LEV, 

and 

SDB 



Segment 
SDB — Description 
Block / 



Index Maintenance Work Area 



Figure 5-U. General Structure of PSB- 
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PL/ I BUFFER PCOL CONTROL BLOCKS 

The EI/I tuff er pool control blocks provide the control information to 
manage the entire buffer pool for the DL/I task. The buffer pool 
control blocks are as follovis: 

• Buffer Pool Control Block Prefix - This control block contains the 
statistics and other control information for the entire buffer pool. 

• Subpool Information Table • This control block contains information 
for a specific subpool, including the size of the buffers in the 
subpool. There is one subpool information table for each subpool 
allocated- 

• DMB Subpool Directory • This control block contains a one-byte 
subpool number relative to zero for each HDAM or HIDAM data base 
allocatedo The DMB sequence number is used as an offset into the DMB 
directory and allows a DMB to be identified with a specific subpool. 

• Buffer Prefix Control Block - This control block contains key 
information about the contents of a specific buffer in a subpool. 
There is one buffer prefix control block for each buffer. Each 
subpool contains 2-32 buffers. 
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GENERAL STRUCTURE 



The general structure of the DL/I buffer pool control blocks is shown in 
Figure 5-5« 



Each buffer pool control block is shown as a 
separate data area In Section 5 of this PLM. 
For the data area layout, see: 



BUFFER POOL CONTROL BLOCK PREFIX 

DSECT Name: BFPL 



SUBPOOL INFORMATION TABLE 

DSECT Name: SUBINFTA 



DMB SUBPOOL DIRECTORY 



BUFFER PREFIX 



DSECT Name: BFFRDS 



I/O BUFFERS 



(2-32 per subpooO 



BFPL - Buffer Pool Control Block Prefix 



SBIF — Subpool Information Table 



BFFR - Buffer Prefix 



Figure 5-5* General Structure of DL/I Buffer Pool Control Blocks 
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ACBXT * ACB EXTENSION 



DSECT Naire: DMBACBXT 



The ACB extension is described as part of the general structure and 
description of the data management block (DMB), The information in 
ACBXT is repeated for each data set in the DMB. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


Code (Hex) 


DMBACBAD 


0(00) 




DMBACBAP 


7(07) 




DMEACBDL 


6(06) 




DMBACBEX 


68(4U) 




DMBACBLC 


56(38) 




DMEACBLN 


80(50) 




DMBACBMN 


lO(OA) 




DMEACBMX 


8(08) 




DMBACBND 


80(50) 




DMEACBNM 


60(3C) 




DMBACBRP 


52(34) 




DMBACBST 


0(00) 




DMBACLNO 


60(3C) 




♦DMEEESDS 


U6(2E) 


40 


DMBEFACT 


44(20) 




DMECICYL 


28(10) 




DMECINV 


4(04) 




♦DMECISPL 


35(23) 


80 


DMBCITRK 


30 (IE) 




DMECTFIN 


0(00) 


(See DTF 


DMBBTFOT 


4(04) 


(See DTF 


DMEECB 


12(00) 




DMBFBASN 


72(48) 




♦DMEFEA 


46 (2E) 


20 


DMBFRSPC 


58 (3A) 




DMEFFSPl 


59 (3B) 




DMBHIBLK 


16(10) 




DMBHIRBA 


36(24) 




DMBINDO 


46(2E) 




♦DMEIGNOR 


34(22) 


40 


♦DMEKEY 


46(2E) 


80 


DMEKEYLE 


31 (IF) 




DMBLRECL 


42(2A) 




♦DMENUSE 


34(22) 


20 


DMEOFLGS 


34(22) 




♦DMEOPEN 


34(22) 


10 


♦DMEPSEQ 


35(23) 


10 


♦DMEPUTKY 


34(22) 


08 


DMEREASN 


20(14) 




DMERKP 


32(20) 




DMERLBLK 


24(18) 




DMESPLCT 


48(30) 




DMEVSBFR 


40(28) 




DMEVSFLG 


35(23) 




♦DMEWCHK 


46 (2E) 


08 



(See DTF extension at end of AOBXT) 
(See DTF extension at end of ACBXT) 
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RECCRE LAYOUT - ACEXT 



Offset 
Dec (Hex) 


lenqth 


Field/Fl, 
Name 


0(00) 


4 


DMBACBST 


0(00) 


4 


DMBACBAD 


4(04) 


2 


DMBCINV 


6(06) 


1 


DMBACBDL 


7(07) 


1 


DMBACBAP 


8(08) 


2 


DMBACBMX 


10 (OA) 


2 


DMBACBMN 


12(00) 


4 


DMBECB 


16(10) 


4 


DMBHIBLK 


20(14) 


4 


DMBRBASN 



Code (Hex) Meaning 



24(18) 


4 


DMBRLBLK 




28(10) 


2 


DMBCICYL 




30 (IE) 


1 


DMBOITRK 




31 (IF) 


1 


DMBKEYLE 




32(20) 


2 


DMBRKP 




34(22) 


1 


DMBOFLGS 








DMBIGNOR 


40 






DJyiBNUSE 


20 






DMBOPEN 


10 






DMBPUTKY 


08 


35(23) 


1 


DMBVSFLG 








DMBCISPL 


80 



Start of ACB extension 

Address of corresponding ACB 

Control interval size 

Delta cylinders to scan 

Number of root anchor points 
per control interval (HDAM) 

Length of the largest segment 
in data set 

Length of the smallest 
segment in data set 

VSAM ACB event control block 
(ECB) used by buffer handler 
(DLZDBHOO) 

Highest control interval RBA 

REA of last logical record 
assigned (HISAM) or relative 
block number of last control 
interval assigned (HD). 
During batch initialization 
the high-order byte is the 
buffer size (control interval 
size/512) indicator 

Relative block number of last 
control interval written (HD) 

Number of control intervals 
per cylinder 

Number of control intervals 
per track 

Key length of KSDS 

Relative key position 

Open flags 

IGN was specif ied for 

workfile on load 

ACB does not have resolved 

secondary index entries; 

workfile must be used 

The corresponding ACB is open 

Simulate not load mode to 

VSAM 

Flags 

Control interval split 

occurred 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) ^^eaning 

Sequential processing is 
possible for this KSDS 

Highest RBA in present range 
of extents (HIDAM ESDS only) 

Number of buffers to be used 

Logical record length 

Blocking factor 

Permanent indicators 
write check option 
FEA device suport 

Blocked ESDS 

Data set contains keys 

(Simple HISAM and SHISAM) 

♦♦Reserved** 

control interval split count 

Address of RPL for this ACB 

Log count (HISAM only) 

Distributed free space 
parameter 

Second free space parameter 

Data set name as in ACB 
Length of version 1,0 

Address of exit list for this 
ACB 

FBA scan value 

**Reserved** 

End of ACB extension 
Length of ACB extension 
(DMBACBND irinus DMBACBST) 

Note: HSAM DMEs have the following DTF extension. 

DSECT Name: DMBDTFXT 

0(00) «♦ DMBDTFIN Address of HSAM input DTF 

4(04) 4 DMBDTFOT Address of HSAM output DTF 







DMBPSEQ 


10 


36(24) 


4 


DMBHIRBA 




40(28) 


2 


DMBVSBFR 




42(2A) 


2 


DMBLRECL 




44 (2C) 


2 


DMBBFACT 




46 (2£) 


1 


DMBINDO 
DMBWCHK 
DMBFBA 


08 
20 






DMBBESDS 
DMBKEY 


40 
80 


47 (2F) 


1 






48(30) 


4 


DMBSPLCT 




52(34) 


4 


DMBACBRP 




56(38) 


2 


DMBACBLC 




58 (3A) 


1 


DMBFRSPC 




59 (3E) 


1 


DMBFRSPl 




60 (3C) 


h 


DMBACBNM 
DMBACLNO 




68(44) 


4 


DMBACBEX 




72(48) 


2 


DMBFBASN 




74 (4A) 


6 






80(50) 


2 


DMBACBND 
DBMACBLN 
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BFFR - BUFFER PREFIX 



DSECT Naire: 



BFFRDS 



The buffer prefix is described as part of the general structure and 
description of the DL/I buffer pool control blocks. There is one buffer 
prefix for each buffer allocated. 



ALPHABETIC LIST OF FIELD/FLAG NAi«(IES 



Field/Flag 


Offset 


Flag 


Natine 


Dec (Hex) 


code (Hex) 


BFFRADDR 


12(0C) 




BFFRCIID 


OiOO) 




BFFRCIRE 


0(00) 




BFFRDCB 


6(06) 




BFFRDMB 


4(04) 




♦BFFREXNQ 


7(07) 


02 


BFFRHOLE 


30(1E) 




♦BFFRLAST 


27 (IB) 


01 


BFFRLEN 


32(20) 




♦BFFRLOCK 


27 (IB) 


40 


BFFRLOCU 


lO(OA) 




♦BFFRMT 


7(07) 


10 


BFFRNACE 


26(1A) 




BFFRNCII 


20(1U) 




BFFRNCID 


20(14) 




BFFRNDMB 


24(18) 




♦BFFRNORU 


27(1B) 


80 


BFFRNPSF 


28 (IC) 




BFFRNPSL 


29 (ID) 




BFFRNPST 


28 (IC) 




♦BFFRPNNQ 


7(07) 


01 


♦BFFRPREC 


7(07) 


08 


BFFRPST 


8(08) 




BFFRPSTF 


8(08) 




BFFRPSTL 


9(09) 




♦BFFRREAD 


7(07) 


20 


♦BFFRRREL 


27 (IB) 


08 


BFFRSW 


7(07) 




BFFRSWl 


27 (IB) 




BFFRUSCT 


12(0C) 




BFFRUSID 


16(10) 




BFFRWCBW 


19(13) 




BFFRWCFW 


18(12) 




♦BFFRWCH 


7(07) 


80 


♦BFFRWERR 


7(07) 


04 


♦BFFRWRT 


7(07) 


40 
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RECORD LAYOUT • BFFR 



Offset 




Field/Flag 


Flag 




Dec (Hex) 


Length 


Name 


Code (Hex) 


Meaning 


ofoor 


7 


BFFRCIID 




Control Interval identifier 


0(00) 


4 


EFFRCIRE 




Control Interval RBA 


4(oa) 


2 


BFFRDMB 




DMB Number 


6(06) 


1 


BFFRDCE 




ACB Number 


7(07) 


1 


BFFRSW 




Flags 






BFFRWCH 


80 


Buffer on write chain 






BFFRWRT 


40 


Buffer being written 






BFFRREAD 


20 


Buffer being read 






BFFRMT 


10 


Buffer empty 






BFFRPRED 


08 


Buffer waiting for 
predecessor being written 






BFFRWERR 


04 


Buffer has permanent write 
error 






BFFREXNQ 


02 


Existing CI ID enqueued 






BFFRPNNQ 


01 


Pending CI ID enqueued 



8(08) 



8(08) 



9(09) 



EFFRPST 



BFFRPSTF 



BFFRPSTL 



10 (OA) 


2 


BFFRLOCU 


12 (OC) 


1 


BFFRUSCT 


12 (OC) 


4 


BFFRADDR 


16(10) 


2 


BFFRUSID 


18(12) 


1 


BFFRWCFW 


19(13) 


1 


BFFRWCEW 


20(14) 


7 


BFFRNCID 


20(14) 


4 


EFFRNCII 


24(18) 


2 


BFFRNDMB 


26 (lA) 


1 


BFFRNACB 



PST prefix numbers for 
enqueue/dequeue 

PST prefix number of the 
controlling task 

PST prefix number of the last 
task in the chain of waiting 
tasks 

Log count 

Use count 

Address of buffer 

ID of the users who altered 
this buffer 

Next lower buffer on the 
write chain 

Next higher buffer on the 
write chain 

New control interval 
identifier 

New control interval RBA 

New DMB number 

New ACB number 
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Offset 




Field/Flag 


Flag 




Dec (Hex) 


Lenqth 


Name 


Code (Hex) 


Meaninq 


27 (IE) 


1 


BFFRSWl 




Flags 






BFFRNORU 


80 


Buffer is not reusable 






BFFRLOCK 


40 


Buffer locked by logger 






BFFRREL 


08 


Buffer is released 






BFFRLAST 


01 


Last buffer prefix for this 
subpool 



28 (IC) 
28 (IC) 

29 (ID) 

30 (IE) 
32(20) 



BFFRNPST 



EFFRNPSF 



BFFRNPSL 



EFFRHOLE 



BFFRLEN 



PST prefix numbers for 
enqueue/dequeue 

PST prefix niamber of task 
which enqueued on new CI ID 
and is first in the chain 

PST prefix number of task 
which enqueued on new CI ID 
and is last in the chain 

Length of largest space 
available in the buffer 

Length of buffer prefix 
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BFPL - BUFFER POOL CONTROL BLOCK PREFIX 



DSECT Naroe: DLZBFPL 



The BFPL is described as part of the general structure and description 
of DL/I buffer pool control blocks. There is one buffer pool control 
block prefix that contains information for the entire buffer pool. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Natme 


Dec (Hex) 


Code (Hex) 


BFPLALTR 


28 (IC) 




BFPLBKWT 


36(2U) 




BFPLCHBK 


48(30) 




BFPLCHWT 


44(2C) 




BFPLCOUT 


62(3E) 




♦BFPLEXCI 


64(40) 


00 


BFPLID 


0(00) 




BFPLIGET 


56(38) 




BFPIINCO 


96(60) 




BFPLINMA 


72(48) 




BFPLINPL 


20(14) 




BFPLINRO 


88(58) 




BFPLINWl 


88(58) 




BFPLINW2 


104(68) 




BFPLISTL 


52(34) 




BFPLLEN 


140(80 




BFPLNQWl 


64(40) 




BFPLNQW2 


68(44) 




BFPLNWBK 


40(28) 




BFPLOSWT 


32(20) 




♦BFPLPECI 


64(40) 


04 


BFPLPRAD 


128(80) 




BFPLPSIF 


124(7C) 




BFPLPSIL 


125(7D) 




BFPLPSIl 


120(78) 




BFPLRDCT 


24(18) 




BFPLROCO 


63 (3F) 




BFPLRQCT 


16(10) 




BFPLSUBD 


132(84) 




BFPLSUIN 


136(88) 




♦BFPLSUPO 


64(40) 


08 


♦BFPLSWOO 


68(44) 


00 


♦BFPLSW80 


68(44) 


80 


BFPLWERR 


60 (3C) 




BFPLWERT 


61 (3D) 
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RECORD LAYOUT - BFPL 



Offset Field/Flag Flag 

Dec (Hex) Lencjth Name Code (Hex) Meaning 



0(00) 



4(04) 


12 


16(10) 


4 


20(14) 


4 


24(18) 


4 


28 (IC) 


4 


32(20) 


4 


36(24) 


4 


40(28) 


4 


44 (2C) 


4 


48(30) 


4 


52(34) 


4 


56(38) 


4 


60 (3C) 


1 


61 (3D) 


1 


62 (3E) 


1 


63 (3F) 


1 


64(40) 


4 



EFPLID 

BFPLRQCT 

BFPLINPL 

BFPLRDCT 

BFPLALTR 

BFPLOSWT 
BFPLBKWT 
BFPLNWBK 

BFPLCHWT 

BFPLCHBK 

BFPLISTL 

BFPLIGET 
BFPLWERR 

BFPLWERT 

BFPLCOUT 

BFPLROCO 

BFPLNQWl 

BFPLEXCI 
BFPLPECI 
BFPLSUPO 



00 
04 
08 



Buffer pool control block ID 
(BFPL) 

♦Reserved* 

Number of reguests received 
by the buffer handler 

Number of reguests satisfied 
from buffer pool 

Number of read reguests 
issued 

Number of buffer alter 
reguests received 

Number of writes issued 

Number of blocks written 

Number of new blocks created 
in pool 

Number of chained writes 
issued 

Number of blocks written on 
write chain 

Number of retrieves by key 
calls 

Number of GN calls received 

Number of permanent write 
error buffers in pool 

Largest number of write error 
buffers ever in pool 

Number of rows/columns in 
matrix currently in use 

Mask showing available 
rows/columns in matrix 

ENQ/DEQ workarea 1. Byte 
indicates the following: 
ENQ/DEQ existing CI code 
ENQ/DEQ pending CI code 
ENQ/DEQ subpool code 
Bytes 1-3 contain a pointer 
to the PST prefix numbers of 
the first and last task 
waiting for the resource 
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Offset Field/Flag Flag 

Pec (Hex) Length Name Code (Hex) Meaning 



68(aU) 



72(^8) 


16 


88(58) 


16 


88(58) 


8 


96(60) 


8 


104(68) 


16 


120(78) 


4 


124 (7cy 


1 


125 (7D) 


1 


126 (7E) 


2 


128(80) 


4 


132(84) 


4 


136(88) 


4 


140(80 





BFPLNQW2 
BFPLSWOO 00 
EFPLSW80 80 

BFPLINMA 

BFPLINWl 

EFPLINRO 
BFPLINCO 
EFPLINW2 

EFPLPSIl 
BFPLPSIF 
BFPLPSIL 



BFPLPRAD 



BFPLSUBD 



BFPLSUIN 



ENQ/DEQ workarea 2 

Mask to turn off wait switch 

Task waiting for matrix space 

Interlock detection matrix 

Interlock detection workarea 
1 



BFPLLEN 



Interlock detection workarea 
2 

Pointer to the PST prefix 
numbers of the first and last 
task waiting for matrix space 

PST prefix number of the 
first task waiting for matrix 
space 

PST prefix number of the last 
task waiting for matrix space 

♦Reserved* 

Beginning address of the 
buffer prefix area 

Beginnincj address of the DMB 
subpool directory 

Beginning of the subpool 
information table entries 

Length of the buffer pool 
control block prefix 
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CPAC - HDAM/HIPAM VARIABLE LENGTH SEGMENT COMPRESSION/EXPANSION ROUTINE 
INTERFACE TABLE ' ' 



DSECT Narce: DMBCPAC 

This table is described as part of the general structure and description 
of the data management block (DMB). There is one entry for each 
compressible segment in the DMB. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


DMBCPCNM 


0(00) 




DMECPCSG 


8(08) 




DMBCPEP 


16(10) 




DMECPFLG 


20(14) 




♦DMBCPKEY 


20(ia) 


02 


DMBCPLNG 


26 (lA) 




♦DMBCPNIT 


20(14) 


01 


DMBCPRES 


28 (IC) 




♦DMBCPSEQ 


20(14) 


08 


DMBCPSGL 


24(18) 




DMBCPSQF 


21(15) 




DMECPSQL 


22(16) 




♦DMBCPVLR 


20(14) 


04 



5-22 Licensed Material - Property of IBM 



RECORD LAYOUT - CPAC 



Offset 
Dec (Hex) 


Length 


Field/Flag 
Name 


Flag 
code (Hex) 


Meaninci 


0(00) 


8 


DMBCPCNM 




Segment Name 


8(08) 


4 


DMBCPCSG 




Compression routine name 


16(10) 


4 


DMBCPEP 




Entry point of compression 
routine 


20(14) 


1 


DMBCPFLG 
DMBCPSEQ 

DMBCPVLR 
DMBCPKEY 

DMBCPNIT 


08 

04 
02 

01 


Flag byte 

Segment has a sequence field 

defined 

Segment is variable length 

segment has key compression 

option 

Initialization and 

termination processing 

required 


21(15) 


1 


DMBCPSQF 




Length of key field minus 1 


22(16) 


2 


DMBCPSQL 




offset to sequence field 


24(18) 


2 


DMBCPSGL 




Maximum segment length 


26 (lA) 


2 


DMBCPLNG 




Total length of CSECT • fixe- 



lengths, constants, plus user 
data 



28 (IC) 



DMBCPRES 



Reserved for intialization 
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DACS -HDAM RANDOMIZING ROUTINE INTERFACE TAELE 



DSECT Naire: 



DMBDACS 



The HDAM randomizing routine interface table is described as part of the 
general structure and description of the data manageirent block (DMB) • 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


DMBDAELK 


16(10) 




DMBDAEYC 


2U(18) 




DMBDAEYM 


20(14) 




BMBDACP 


28 (IC) 




DMBDAEP 


9(09) 




BMBDAKL 


8(08) 




DMBDANME 


0(00) 




DMBDARAP 


1<*(0E) 




DMBDASZE 


12(0C) 





RECORD LAYOUT • DACS 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



0(00) 



24(18) 



28 (IC) 



8 



8(08) 


1 


9(09) 


3 


12 (OC) 


2 


ItKOE) 


2 


16(10) 


4 


20(14) 


4 



DMBDANME 

DMBDAKL 
DMBDAEP 

DMBDASZE 
DMBDARAP 

DMBDABLK 

DMBDABYM 

DMBDABYC 

DMBDACP 



Name of address conversion 
algorithm load module 

Root Key length minus 1 

Entry point to conversion 
module 

Size of this DSECT 

Niomber of root anchor 
pointers per block 

Number of highest block 
directly addressable 

Maximum number of bytes per 
root before overflow outside 
of directly addressable area 

Current number of bytes 
consecutively inserted or 
loaded under root 

Result of last address 
conversion 
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BDIR 



DMB DIRECTORY 



DSECT Name: DLZBDIR 



The DMB directory contains an entry for every DMB (data management 
block) that can be accessed under DL/I control. The DMB directory is 
part of the DL/I nucleus and is created during DL/I system definition 
for online processing* The start address of the directory (SCDDLIDM) 
and entry length (SCDDLIDL) are contained in the system contents 
directory (SCD). 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Natne 


Dec (Hex) 


code (Hex) 


DDIRADDR 


8(08) 




♦DDIRBAD 


19(13) 


01 


DDIRCNT 


12(0C) 




DDIRCODE 


18(12) 




DDIRC0D2 


19(13) 




DDIRDMBL 


13(0D) 




♦DDIREXCL 


19(13) 


10 


♦DDIREXSD 


19(13) 


08 


♦DDIRGRP 


19(13) 


02 


♦DDIRHSAM 


19(13) 


20 


♦DDIRINOP 


18(12) 


20 


♦DDIRKBRQ 


18(12) 


10 


DDIRLEN 


24(18) 




♦DDIRNDBM 


19(13) 


80 


♦DDIRNOUP 


18(12) 


01 


♦DDIRNOSC 


18(12) 


04 


♦DDIRNRAN 


19(13) 


40 


DDIRNUMB 


16(10) 




♦DDIROPEN 


18(12) 


40 


DDIRPPST 


21(15) 




♦DDIRSECL 


18(12) 


80 


DDIRSYM 


0(00) 




DDIRVSRT 


20(14) 




♦DDIRWAIT 


18(12) 


08 


♦DDIRIGRP 


19(13) 


04 
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RECORD LAYOUT 



DDIR 



Offset 
Dec (Hex) 


L« 


0(00) 





0(00) 


8 


8(08) 


a 


12(00) 


1 


13(0D) 


3 


16(10) 


2 


18(12) 


1 



Field/Flag Flag 
Length Name Code (Hex) Meaning 



DDIR 



19(13) 



20 (la) 
21(15) 

24(18) 



1 
3 



DDIRADDR 




DDIRCNT 




DDIRDMBL 




DDIRNUMB 




DDIRCODE 




DDIRSECL 


80 


DDIROPEN 


40 


DDIRINOP 


20 


DDIRKBRQ 


10 


DDIRWAIT 


08 


DDIRNOSC 


04 


DDIRNOUP 


01 


DDIRC0D2 




DDIRNDBM 


80 


DDIRNRAN 


40 


DDIRHSAM 


20 


DDIREXCL 


10 


DDIREXSD 


08 


DDIRIGRP 


04 


DDIRGRP 


02 


DDIRBAD 


01 


DDIRVSRT 




DDIRPPST 




DDIRLEN 





Label to establish entry 
address 

DMB name - converted from 
DMBNAME supplied during 
DBDGEN 

DMB address 

Number of users scheduled to 
this DMB 

Storage reguired for this DMB 

DMB number of this DMB 

DMB code 

Security locked 

At least one ACB is opened 

DMB to be opened during 

online initialization or 

during start call 

Buffer pool space reguired 

for this KSDS 

System task waiting for zero 

DDIRCNT 

Do not schedule this DMB 

because it is stopped 

Do not schedule updates 

DMB code byte 2 

DMB not present in library 

Reguested randomizing module 

not present in library 

This DMB for HSAM 

This DMB being used 

exclusively 

Exclusive control reguired 

for scheduling 

DMB first in shared index 

DMB belongs to shared index 

DMB initialization failed 

R15 VSAM return code 

PPST address if DMB is used 
exclusively 

Length of one DDIR entry 
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DLZTWAB - TRANSACTION WORK AREA 



DSECT Name: DLZTWA 



The DLZTWA macro provides the mapping for the batch partition 
controller's transaction work area. The information is used for 
communication with: 

• DL/X task termination 

• CICS/VS 

• Batch partition 

• Sheduling MPS batch jobs 

• Online message module 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


TWAEEND 


202(CA) 




TWABPC 


0(00) 




TWAEPCID 


4(0£|) 




♦TWABCOK 


0(00) 


80 


TWAEPCSV 


76(ac) 




TWACALL 


40(28) 




TWACCND 


192(C0) 




♦TWAEOJSW 


0(00) 


40 


TWAMPCE 


5(05) 




TWAMPCPT 


1(01) 




TWAMPSFG 


0(00) 




TWAMPSID 


180(BU) 




TWAMSG 


148(94) 




TWAMSGID 


152(98) 




TWAMSGNC 


148(94) 




TWAMSGOl 


156(9C) 




TWAMSG02 


160 (AO) 




TWAMSG03 


164(A4) 




TWAMSGOU 


168 (A8) 




TWANIPTR 


32(20) 




TWAPARMC 


36(24) 




TWAPIDTB 


56(38) 




TWAPSBDL 


55(37) 




TWAPSBN 


44(2C) 




TWAPSBNM 


48(30) 




TWAPSW 


172 (AC) 




TWAPTEND 


68(44) 




TWAPTIDF 


58 (3A) 




TWARCODE 


190(BE) 




TWASCHDC 


36(24) 




TWAWLIST 


8(08) 




TWAXCBDL 


16(10) 




TWAXCBNl 


24(18) 




TWAXCBN2 


20(14) 




TWAXCB2 


8(08) 




TWAXCB3 


12(0C) 




TWAXNAME 


182 (B6) 
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0(00) 





TWABPG 




0(00) 


1 


TWAMPSFG 








TWABPCCK 


80 






TWAEOJSW 


40 


1(01) 


3 


TWAMPCPT 




4(04) 


1 


TWABPCID 




5(05) 


3 


TWAMPCE 





RECORD LAYOUT - DLZTWAB 

Offset Field/Flag Flag 

pec (Hex) Length Name Code (Hex) Meaning 

♦♦♦THE FOLLOWING FIELDS ARE USED FOR COMMUNICATING WITH THE DL/I TASK 
TERMINATION ROUTINF^^^ 

Start of TWABPC 

BPC flag byte: 

BPC abnormal termination 

processing completed 

EOJ processing reached for 

MPS batch partition 

Address of MPC partition 
table 

Batch partition identifier 
(F1,F2,..«) 

Address of specific MPC 
partition table entry 

♦♦♦THE FOLLOWING IS THE BATCH PARTITION CONTROLLER'S CICS/VS WAITM ECB 
LISTr DELIMITER, AND XECB^^^ 

Start of TWAWLIST 

Pointer to BPC's XECB 
(DLZXCBn2) 

Pointer to ABEND XECB 
(DLZXCBn3) 

ECB list delimiter 
(•FFFFFFFF') 

XECB for BPC 

♦♦♦THE FOLLOWING FIELDS ARE USED FOR COMMUNICATION WITH THE BATCH 
PARTITION^^^ 

24(18) 8 TWAXCBNl XECB name for batch 

initialization (DLZXCBnl) 

32(20) 4 TWANIPTR XECBTAB table entry address 

for batch I initialization ■ s 
XECB (DLZICCBnl) 

♦♦♦THE FOLLOWING FIELDS ARE USED FOR THE BATCH PARTITION CONTROLLER'S 
DL/I SCHEDULING CALL PARAMETER LIST AND THE PSBNAME TO BE : SCHEDULED^^^ 

Start Of TWASCHDC 

Pointer to parameter count 

Pointer to call function 

Pointer to PSBname 

PSB name (PSBNAME) 
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8(08) 





TWAWLIST 


8(08) 


4 


TWAXCB2 


12 (OC) 


4 


TWAXCB3 


16(10) 


4 


TWAXCBDL 


20(14) 


4 


TWAXCBN2 



36(24) 





TWASCHDC 


36(24) 


4 


TWAPARMC 


40(28) 


4 


TWACALL 


44 (2C) 


4 


TWAPSBN 


48(30) 


7 


TWAPSBNM 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



55(37) 



TWAPSBDL 



PSB name delimiter 



♦♦♦THE FOLLOWING TABLE CONTAINS THE PARTITION IDENTIFIERS USED TO 
IDENTIFY THE E^TCH PARTITION ASSOCIATED WITH MESSAGES DLZ082I, DLZ084I, 
AND DL2103I^^^ 



56(38) 


20 


56(38) 


2 


58 (3A) 


2 


60 (3C) 


2 


62 (3E) 


2 


64(40) 


2 


66(42) 


2 


68(44) 


2 


70(46) 


2 


72(48) 


2 


74(4A) 


2 



Start of TWAPIDTB 
Background partition ID (BG) 
Foreground partition ID (F6) 
Foreground partition ID (F5) 
Foreground partition ID (F4) 
Foreground partition ID (F3) 
Foreground partition ID (F2) 
Foreground partition ID (Fl) 
♦♦Reserved^^ 
♦♦Reserved^^ 
♦♦Reserved+^ 



TWAPIDTB 

Unnamed 

TWAPTIDF 

Unnamed 

Unnamed 

Unnamed 

Unnamed 

TWAPTEND 

Unnamed 

Unnamed 

Unnamed 

♦♦♦BATCH PARTITION CONTROLLER REGISTER SAVE AREA+^+ 

76 (4C) 72 TWAEPCSV BPC register save area (18 

full words) 

♦♦♦THE FOLLOWING ARE THE PARAMETER LIST POINTERS, PARAMETERS, AND 
MESSAGE FILLERS PASSEI> TO THE DL/I ONLINE MESSAGE MODULE (DL2ERMSG) FOR 
ALL BPC MESSAGES^^^ 

Start of TWAMSG 

Message number pointer for 
all BPC messages 

Partition ID pointer (for 
messages DLZ082I, DLZ084I, 
and DLZ103I) 

BPC module ID pointer (for 
message DLZ104I) 

Module name pointer (for 
messages DLZ082I and DLZ084I) 

Termination condition pointer 
and delimiter (for message 
DLZ103I) 

CICS ABEND code pointer and 
delimiter (for message 
DLZ104I) 

XECBTAB TYPE= pointer (for 
messages DLZ082I and DLZ084I) 



148(94) 





TWAMSG 


148(94) 


4 


TWAMSGNO 


152(98) 


4 


TWAMSG ID 



156 (9C) 



TWAMSG 01 



160 (AO) 



TWAMSG 02 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaninc r 



164 (A4) 


4 


TWAMSGOa 


168 (A8) 


4 


TWAMSG04 


172 (AC) 


8 


TWAPSW 


180(E4) 


2 


TWAMPSID 


182(B6) 


8 


TWAXNAME 


190(EE) 


2 


TWARCODE 


192(C0) 


10 


TWACOND 


202 (CA) 


4 


TWABEND 



PSW pointer and delimiter 
(for message DLZ104I) 

XECBTAB XECB=XECBname pointer 
(for messages DLZ082I and 
DLZ084I) 

Return code pointer and 
delimiter (for messages 
DLZ082I and DLZ084I) 

Program interrupt PSW 

Batch partitiion ID 

XECBTAB XECB=XECBname 
(DLZXCBnn) 

Return code 

BPC termination condition 
(abnormally or normally) 

CICS ABEND completion code 
(ASRA) 
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DMB - DMB PREFIX 



DSECT Naine: DMB 



The DMB prefix is described as part of the general structure and 
description of the data management block (DMB) • 



ALPHABETIC LIST CF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


DMBDALGR 


12(0C) 




♦DMBHD 


6(06) 


06 


♦DMBHI 


6(06) 


07 


♦DMBHSAM 


6(06) 


05 


♦DMBISAMl 


6(06) 


02 


DMELDDCE 


7(07) 




DMBLENTE 


2C02) 




♦DMBNDEX 


6(06) 


08 


DMBNREF 


12 (OC) 




DMBORG 


6(06) 




DMBPDATA 


8(08) 




DMBPPRLN 


16(10) 




DMBPPRND 


16(10) 




DMESECTE 


4(0U) 




♦DMBSHIS 


6(06) 


01 


DMBSIZE 


0(00) 




♦DMBSSAM 


6(06) 


OU 


♦DMEVll 


0(00) 


80 
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RECORD LAYOUT • DME 



Offset Field/Flag Flag 

Dec (Hex) Lengthy Name Code ( Hex ) Meaning 



OtOO) 
2(02) 

tKoa) 

6(06) 



7(07) 



16(10) 



16(10) 



DMESIZE 
DMBVll 


80 


DMBLENTB 




DMBSECTB 




DMBORG 




DMBSHIS 


01 


DMBISAMl 


02 


DMBSSAM 


04 


DMBHSAM 


05 


DMBHD 


06 


DMBHI 


07 


DMBNDEX 


08 



8(08) 


2 


DMBPDATA 


10 (OA) 


2 




12 (OC) 


1 


DMBNREF 


12 (OC) 


4 


DMBDALGR 



DMBPPRND 



DMBPPRLN 



DMB size 

DL/I version 1.1 or later 

Offset froir dMb to first PSDB 
(DMBPSDB) 

Offset from DMB to end of 
PSDBs ♦ 1 

DJMB organization 

Simple HISAM 

HISAM 

Simple HSAM 

HSAM 

HDAM 

HIDAM 

Index data base 

ACB number (minus 1) of 
sequential data set used to 
write index records on data 
base load 

Length of system data in 
index data base (protected) 

♦Reserved* 

Number of entries in external 
reference table 

Address of direct algorithm 
communication table if HDAM 
(DMBDACS) ; LRECL number if 
HSAM 

End ♦ 1 of DMB prefix. This 
is also the address of the 
first ACB extension 
(DMBACBXT) 

Length of DMB prefix 
(DMBPPRND minus DMB) 
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DPPCB - PCB DOPE VECTOR TABLE 



DSECT Naire: DPPCB 



The PCB dope vector table is described as part of the general structure 
and description of the program specification block (PSB). 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


DPPCBDBD 


0(00) 




DPPCBJCB 


32(20) 




DPPCBKFD 


52(34) 




DPPCBLEV 


8(08) 




DPPCBLKY 


44(20) 




DPPCBPRO 


28(18) 




DPPCBSFD 


36(24) 




DPPCESTC 


16(10) 




DPPCPNSS 


48(30) 
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RECORD LAYOUT - DPPCE 



Offset 

Dec (Hex) Length Field Naire 



Meaning 



0(00) 



4(04) 



6(06) 



DPPCBDBD 



Maxiiriuro Length 



Current length 



8(08) 4 DPPCBLEV 

12 (OC) 2 Maxiitium length 



14 (OE) 2 



16(10) 4 



20(14) 2 



22(16) 



24(18) 

28 (IC) 



30 (IE) 2 



Current Length 



DPPCBSTC 



Maxiitium length 



Current Length 



DPPCBPRO 



Maxiitium length 



Current Length 



The address of the location that 
contains DBPCBDBD 

Maximum length: Half word binary 
number which specifies number of 
storage units allocated for the 
string; byte count if character , 
bit count if bit 

Current length: Half word binary 
number which specifies the number 
of storage units , within the 
maximum length, currently 
occupied by the string 

The address of the location that 
contains DBPCBLEV 

Maximum length: Half word binary 
number which specifies number of 
storage units allocated for the 
string; byte count if character, 
bit count if bit 

Current length: Half word binary 
number which specifies the number 
of storage units, within the 
maximum length, currently 
occupied by the string 

The address of the location that 
contains DBPCBSTC 

Maximum length: Half word binary 
number which specifies number of 
storage units allocated for the 
string; byte count if character, 
bit co^nt if bit 

Current length: Half word binary 
number which specifies the number 
of storage units, within the 
maximum lengthy currently 
occupied by the string 

The address of the location that 
contains DBPCBPRO 

Maximum length: Half word binary 
number which specifies number of 
srtorage units allocated for the 
string; byte count if character, 
bit count if bit 

Current length: Half word binary 
number which specifies the number 
of storage units, within the 
maximum length, currently 
occupied by the string 
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Offset 

Dec (Hex) Length Field Name 



Meaning 



32(20) 



36(24) 



U0(28) 



42 (2A) 



44 (2C) 
48(30) 
52(34) 
56(38) 



58 (3A) 



DPPCBJCB 



DPPCBSFD 



Maxirouw length 



Current Length 



DPPCBLKY 



DPPCPNSS 



DPPCBKFD 



Maxirouir length 



Current Length 



The address of the location that 
contains DBPCBJCB 

The address of the location that 
contains DBPCBSFD 

Maxiitiuin length: Halfword binary 
number which specifies number of 
storage units allocated for the 
string; byte count if character^ 
bit count if bit 

Current length: Halfword binary 
number which specifies the number 
of storage units, within the 
maximum length, currently 
occupied by the string 

The address of the location that 
contains DBPCBLKY 

The address of the location that 
contains DBPCBNSS 

The address of the location that 
contains DBPCBKFD 

Maximum length: Halfword binary 
number which specifies number of 
storage units allocated for the 
string; byte count if character, 
bit count if bit 

Current length: Halfword binary 
number which specifies the number 
of storage units, within the 
maximum length, currently 
occupied by the string 
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DSG - DATA SET GROUP 



DSECT Nair.e: DSG 



The DSG is described as part of the general structure and description of 
the program specification block (PSB) • 

Note: With the exception of the first three characters of each 
field/flag name (DSG instead of JCB) the layout of the data set group is 
identical to the layout of the 'DSG Section' of the job control block 
(JCB). 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


♦DSGBLDEL 


15(0F) 


80 


DSGBOFF 


12(0C) 




♦DSGCOMMD 


16(10) 


02 


♦DSGCONST 


15(QF) 


20 


♦DSGDATX 


16(10) 


40 


DSGDCBA 


0(00) 




DSGDCBNO 


6(06) 




DSGDMBNO 


U(0«*) 




DSG DSGLN 


28 (IC) 




♦DSGDSOHD 


7(07) 


20 


♦DSGDSOHI 


7(07) 


10 


♦DSGDSOHS 


7(07) 


02 


♦DSGDSOHl 


7(07) 


04 


♦DSGDSOLS 


7(07) 


80 


♦DSGDSORI 


7(07) 


44 


♦DSGDSOUP 


7(07) 


01 


♦DSGDUPS 


15 (OF) 


08 


♦DSGHDULD 


15(0F) 


40 


DSGHSADD 


8(08) 




♦DSGHSWLR 


15 (OF) 


01 


DSGINDA 


7(07) 




DSGINDB 


14 (OE) 




DSGINDC 


15 (OF) 




DSGINDG 


16(10) 




DSGLROOT 


24(18) 




DSGNOSAM 


20(14) 




♦DSGPADKY 


15(0F) 


10 


♦DSGPREM 


16(10) 


80 


♦DSGRETD 


16(10) 


04 


♦DSGVL 


16(10) 


08 


♦DSGXP 


16(10) 


10 



i 
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RECORD LAYOUT 



DSG 



Offset Field/Flag Flag 

De c ( H ex ) _ Length Name Code(Hex) Meaning 



0(00) 



DSGDCBA 



4(04) 


2 


DSGDMBNO 




6(06) 


1 


DSGDCBNO 




7(07) 


1 


DSGINDA 








DSGDSOLS 


80 






DSGDSORI 


44 






DSGDSOHD 


20 






DSGDSOHI 


10 






DSGDSOHl 


04 






DSGDSOHS 


02 






DSGDSOUP 


01 


8(08) 


4 


DSGHSADD 




l^(OC) 


2 


DSGBOFF 




14 (OE) 


1 


DSGINDB 




15 (OF) 


1 


DSGINDC 








DSGBLDEL 


80 






DSGHDULD 


40 






DSGCONST 


20 






DSGPADKY 


10 






DSGDUPS 


08 






DSGHSWLR 


01 


16(10) 


1 


DSGINDG 








DSGPREM 


80 






DSGDATX 


40 






DSGXP 


10 






DSGVL 


08 






DSGRETD 


04 






DSGCOMMD 


02 


17(11) 


3 






20(14) 


4 


DSGNOSAM 




24(18) 


4 


DSGLROOT 




28(1C) 




DSGDSGLN 





Address of the ACB extension 
for this data set (KSDS ACB 
extension if HI SAM > 

DMB number for this DSG 

ACB number of ACB in DMB 
(KSDS ACB number if HISAM) 

JCB indicators 

This is last DSG in JCB 

Data set group is root in 

index 

Data set group is HDAM 

Data set group is HID/^ 

Data set group is HISAM or 

simple HISAM 

Data set group is HSAM or 

simple HSAM 

Data set group is SHSAM or 

SHI SAM 

HSAM I/O area after open 

HSAM block size 

(Not used in DL/I DOS/VS) 

JCB indicators 

Delete/replace DSG 

HD unload is running 

Index data set contains 

constant 

Search argument not equal to 

key length 

Nonunique secondary index 

keys 

HSAM wrong length record 

DSG indicators - retrieve 's 

variable length flags 

Segment prefix moved to work 

area 

segment completely expanded 

Force complete segment 

expansion 

The variable length routine 

has been entered for segment 

Data return call 

Path return call 

♦♦Reserved** 

Retrieve "s HSAM ID 

RBA of current root 

Length of each DSG section of 
JCB 
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FDB - FIELD DESCRIPTION BLOCK 



DSECT Name: 



FDB 



The field description block (FDB) is described as part of the general 
structure and description of the data inanageinent block (DMB) . 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 






Name 


Dec (Hex) 


code (Hex] 


1 




♦FDBCHAR 


lO(OA) 


03 






FDEDCENF 


10 (OA) 










FDBEND 


12 (OC) 




(See 


XDFLD 


fields) 


♦FDBEQOK 


10 (OA) 


20 








FDBFLENG 


11 (OB) 










♦FDBFP 


10 (OA) 


04 








♦FDBHEX 


10 (OA) 


01 








♦FDBKEY 


10 (OA) 


ao 








*FDBLAST 


10 (OA) 


80 








FDBLEN 


IKOB) 




(See 


DFLD fields) 


FDBOFFCK 


8(08) 




(See 


/CK fields) 


FDBOFFST 


8(08) 










♦FDBPACK 


10 (OA) 


02 








♦FDBSPEC 


10 (OA) 


10 








FDBSYMBL 


0(00) 










FDBSYSLN 


10 (OA) 




(See 


/CK fields 


FDBSYSNM 


0(00) 




(See 


/CK fields) 


♦FDBTYPE 


10 (OA) 


07 








♦FDBXDCON 


10 (OA) 


08 


(See 


XDFLD 


fields) 


♦FDBXDEQ 


10 (OA) 


01 


(See 


XDFLD 


fields) 


FDBXDFLG 


10 (OA) 




(See 


XDFLD 


fields) 


FDBXDLEN 


12 (OC) 




(See 


XDFLD 


fields) 


♦FDBXDLST 


10 (OA) 


80 


(See 


XDFLD 


fields) 


FDBXDNM 


0(00) 




(See 


XDFLD 


fields) 


FDBXDSEC 


8C08) 




(See 


XDFLD 


fields) 


♦FDBXDSPC 


10 (OA) 


10 








♦FDBXDSSQ 


10 (OA) 


oa 


(see 


XDFLD 


fields) 


♦FDBXDSSS 


10 (OA) 


20 








♦FDBXDSYM 


10 (OA) 


40 








♦FDBZD 


10 (OA) 


07 
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RECORD LAYOUT - FDB 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code ( Hex ) Meaning 



0(00) 
8(08) 

10 (OA) 



FDBSYMBL 




FDBOFFST 




FDBDCENF 




FDBLAST 


80 


FDBKEY 


40 


FDBEQOK 


20 


FDBSPEC 


10 


FDBTYPE 


07 


FDBZD 


07 


FDBFP 


oa 


FDBPACK 


02 


FDBHEX 


01 


FDBCHAR 


03 



11 (OB) 1 FDBFLENG 

♦♦♦This describes the /CK system-related 

0(00 3 FDBSYSNiyi 

3(03) 5 

8(08) 2 FDBOFFCK 



10 (OA) 



FDBSYSLN 



♦♦♦This describes the XDFLD^^^ 
0(00) 8 FDBXDNM 
8(08) 2 FDBXDSEC 

10 (OA) 1 



Symbolic name 

Field offset from segment 
beginning 

Flags 

Last FDB for this segment 

This is segment's sequence 

field 

Duplicate sequence fields 

allowed 

Special FDB (XDFLD, /CK, or 

/SK) 

Field format bits 

Field is zoned decimal 

Field is floating point 

Field is packed decimal 

Field is hexadecimal 

Field is character 

Executable field length 

field^^^ 

Constant '/CK' 

Remainder of field name 

Offset from beginning of 
concatenated key 

Bits 0-3 = X'OOOl*; Bits 4-15 
= length minus 1 



FDB Name 

Offset to secondary list for 
this index 



11 (OE) 
12 (OC) 
12 (OC) 



FDBXDFLG 




Flags 


FDBXDLST 


80 


Last FDB 


FDBXDSYM 


40 


Pointer is symbolic 


FDBXDSSS 


20 


Pointer is contained in 
SOURCE/SUBSEQ data 


FDBXDSPC 


10 


Special FDB 


FDBXDCON 


08 


Constant present 


FDBXDSSQ 


04 


SUBSEQ present 


FDBXDEQ 


01 


Index segment same as index 
source segment 


FDBXDLEN 
FDBEND 




Length of search field 
End of FDB entry 


FDBLEN 




Length of FDB entry (FDBEND 



minus FDBSYMBL) 
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FER - FIELD EXIT ROUTINE INTERFACE LIST 



DSECT Name: 



FER 



The FER (Field Exit Routine Interface List) is used to pass information 
to the named user-written exit routine whenever a designated field is to 
be processed. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Code 


Name 


Dec (Hex) 


(Char) 


FERPCSC 


2(02) 




♦FERPCSCT 


2(02) 


B 


♦FERPCSFE 


2(02) 


C 


♦FERPCSNT 


2(02) 


A 


♦FERPCSOK 


2(02) 




♦FERPCSTC 


2(02) 


D 


FERPEC 


0(00) 




FERPFNCT 


1(01) 




FERPFSBA 


28 (IC) 




♦FERPGET 


0(00) 


G 


♦FERPINS 


1(01) 


I 


FERPLEN 


80(50) 




FERPPFA 


12(0C) 




FERPPFL 


10 (OA) 




FERPPSA 


4(04) 




♦FERPPUT 


0(00) 


P 


♦FERPREP 


1(01) 


R 


♦FERPRET 


1(01) 


G 


♦FERPSSA 


1(01) 


S 


FERPUFA 


24(18) 




FERPUFL 


22(16) 




FERPUSA 


16(10) 




FERPUWA 


32(20) 




'i'FERPXDF 


1(01) 


X 
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RECORD LAYOUT - FER 



Offset Field/Flag Code 

Dec (Hex) Length Name _ (Char) 



Meaning 



0(00) 


1 


FERPEC 




Entry code 






FERPGET 


G 


Get function 






FERPPUT 


P 


Put function 


1(01) 


1 


FERPFNCT 




Function code 






FERPRET 


G 


Retrieve segment conversion 






FERPINS 


I 


Insert 






FERPREP 


R 


Replace 






FERPSSA 


S 


Retrieve SSA conversion 






FERPXDF 


X 


Retrieve SSA conversion 
for XDFLD 


2(02) 


1 


FERPCSC 
FERPCSOK 




Conversion status code 
OK 






FERPCSNT 


A 


Numeric truncation error 






FERPCSCT 


B 


Character truncation error 






FERPCSFE 


C 


Format error 






FERPCSTC 


D 


Type conflict 


3(03) 


1 






♦♦Reserved** 


4(0U) 


U 


FERPPSA 




Physical segment address (i 



variable length , points to 
two byte length field) 



8(08) 


2 




10 (OA) 


2 


FERPPFL 


12 (OC) 


4 


FERPPFA 


16(10) 


4 


FERPUSA 


20(14) 


2 




22(16) 


2 


FERPUFL 


24(18) 


4 


FERPUFA 


28 (IC) 


4 


FERPFSBA 


32(20) 


48 


FERPUWA 


80(50) 





FERPLEN 



**Reserved** 

Physical field length (zero 
if virtual field) 



Physical field address (zero 
if virtual field) 



User segment address 

**Reserved** 

User field length 

User field address 

FSB address 

User work area 

Length of field exit routine 
interface list 
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PERT 



FIELD EXIT ROUTINE TABLE 



DSECT Name: PERT 



The FERT (Field Exit Routine Table) is used to hold information about a 
user-written exit routine. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


♦FERTBUMP 


20(14) 


80 


FERTFLAG 


20(14) 




FERTLEN 


24(18) 




FERTNAME 


0(00) 




FERTPRES 


16(10) 




FERTRTEP 


8(08) 




FERTRTLG 


12(0C) 





RECORD LAYOUT 



FERT 



Offset 




Field/Flac 


Dec(Hex) 


Lenqth 


Name 


0(00) 


8 


FERTNAME 


8(08) 


4 


FERTRTEP 


12 (OC) 


4 


FERTRTLG 


16(10) 


4 


FERTPRES 


20(14) 


1 


FERTFLAG 
FERTDUMP 


21(15) 


3 




24(18) 





FERTLEN 



Code (Hex) Meaning 



80 



Module name 

Module entry point 

Module length 

Pointer to next FERT entry 

Control block dtimped 

♦♦Reserved** 

Length of field exit routine 
table 
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FSB - FIELD SENSITIVITY BLOCK 



DSECT Name: 



FSB 



The FSB (Field Sensitivity Block) is used to hold information about a 
field which has been defined with a SENFLD statement during PSBGEN. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


FSBCHAIN 


28 (IC) 




♦FSBCHAR 


lO(OA) 


03 


♦FSBCR 


ll(OB) 


20 


♦FSBDPF 


lO(OA) 


10 


♦FSBEQOK 


10 (OA) 


20 


FSBFDBP 


0(00) 




♦FSBFER 


16(10) 


20 


FSBFERTA 


24(18) 




FSEFLAG 


IKOB) 




FSBFLDNM 


0(00) 




♦FSBFP 


10 (OA) 


04 


♦FSBHEX 


10 (OA) 


01 


♦FSBIV 


16(10) 


40 


FSBIVA 


20(14) 




♦FSBKEY 


10 (OA) 


40 


♦FSBLAST 


lO(OA) 


80 


FSBLEN 


32(20) 




♦FSBNR 


16(10) 


08 


♦FSBOVF 


IKOB) 


40 


♦FSBPACK 


lO(OA) 


02 


FSBPCHA 


4(04) 




FSBPHYAD 


6(06) 




FSEPVLEN 


12(0C) 




FSBPVLOC 


8(08) 




FSBPVTYP 


lO(OA) 




♦FSBSSA 


IKOB) 


80 


♦FSBTYPE 


10 (OA) 


07 


♦FSBUCHAR 


16(10) 


03 


♦FSBUFP 


16(10) 


04 


♦FSBUHEX 


16(10) 


01 


♦FSBUPACK 


16(10) 


02 


FSBUVLEN 


18(12) 




FSBUVLOC 


14 (OE) 




FSBUVTYP 


16(10) 




♦FSBUZD 


16(10) 


07 


♦FSBVF 


16(10) 


10 


♦FSBZD 


10 (OA) 


07 
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RECORD LAYOUT • FSB 



Offset 




Field/Flag 


Flag 




Dec(Hex) 


Len9th 


Name 


Code (Hex) 


Meaninq 


0(00) 


8 


FSBFLDNM 




Field name 


0(00) 


4 


FSBFDBP 




FDB address (ACBGEN only) 


4(04) 


2 


FSBPCHA 




Physical view chain pointer 
(ACBGEN only) 


6(06) 


2 


FSBPHYAD 




Field physical adjustment 
factor (ACBGEN only) 


8(08) 


2 


FSBPVLOC 




Displacement in physical 
segment 


10 (OA) 


1 


FSBPVTYP 




Physical field type 






FSBLAST 


80 


Last FSB 






FSBKEY 


40 


Sequence field 






FSBEQOK 


20 


Duplicate sequence allowed 






FSBDPF 


10 


Field is in destination 
parent 






FSBTYPE 


07 


Field format bits 






FSBZD 


07 


Field format is zoned decimal 






FSBFP 


04 


Field format is floating 
point 






FSBCHAR 


03 


Field format is character 






FSBPACK 


02 


Field format is packed 
decimal 






FSBHEX 


01 


Field format is binary 


11 (OB) 


1 


FSBFIAG 




Flags 






FSBSSA 


80 


Field may be used in an SSA 






FSBOVF 


40 


Field has subf ields 






FSBCR 


20 


Conversion required 


12 (OC) 


2 


FSBPVLEN 




Physical field length 
(executable) 


14 (OE) 


2 


FSBUVLOC 




Field displacement in user's 
view 


16(10) 


1 


FSBUVTYP 




User's field type 






FSBIV 


40 


Initial value specified 






FSBFER 


20 


Field exit routine specified 






FSBVF 


10 


Field is virtual 






FSBNR 


08 


Replace prohibited 






FSBUZD 


07 


User field format is zoned 
decimal 






FSBUFP 


04 


User field format is floating 
point 






FSBUCHAR 


03 


User field format is 
character 






FSBUPACK 


02 


User field format is packed 
decimal 






FSBUHEX 


01 


User field format is binary 


17(11) 


1 






♦♦Reserve^** 


18(12) 


2 


FSBUVLEN 




User's field length 



(executable) 



^ 
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Offset Field/Flag Flag 

Dec (Hex) Lenofth Name Code (Hex) Meaning 



20(14) 


4 


FSBIVA 


24(18) 


U 


FSBFERTA 


28 (IC) 


a 


FSBCHAIN 


32(20) 





FSBLEN 



Pointer to specified initial 
value 

Field exit routine table 
entry address 

Chain pointer for ACBGEN 

Length of FSB entry 
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JGB-JOB CONTROL BLOCK 



DSECT Name: JCB 



The JCB is described as part of the general structure and description of the 
program specification block (PSE) . 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


♦JCBAILEX 


64(40) 


04 


♦JCEBLDEL 


179 (B3) 


80 


JCBBOFF 


176 (BO) 




JCBCODE 


60 (3C) 




♦JCBCOMMD 


180(B4) 


02 


♦JCBCONST 


179 (B3) 


20 


♦JCBDATX 


180(B4) 


40 


JCBDCBA 


164(A4) 




JCBDCBNO 


170 (AA) 




♦JCBDEFDL 


60 (3C) 


40 


♦JCBDLET 


148(94) 


02 


JCBDMBNO 


168 (A8) 




♦JCBDOPI 


64(40) 


08 


JCBBSGLN 


188 (BC) 




♦JCBDSOHD 


171 (AB) 


20 


♦JCBDSOHI 


171 (AB) 


10 


♦JCBDSOHS 


171 (AB) 


02 


♦JCBDSOHI 


171 (AB) 


04 


♦JCBDSOLS 


171 (AB) 


80 


♦JCBDSORI 


171 (AB) 


44 


♦JCBDSOUP 


171 (AB) 


01 


♦JCBDUPS 


179(B3) 


08 


♦JCBFLS 


64(40) 


01 


♦JCBHDULD 


179(B3) 


40 


JCBHSADD 


172 (AC) 




*JCBHSWLR 


179 (B3) 


01 


JCBINDA 


171 (AB) 




JCBINDB 


178(B2) 




JCBINDC 


179 (B3) 




JCBINDG 


180 (B4) 




♦JCBISRT 


148(94) 


01 


♦JCBKEYX 


180(B4) 


20 


JCBLEVND 


4(04 




JCBLEVTE 


0(00) 




JCBLEVIC 


32(20) 




JCBLROOT 


188 (BC) 




JCBLVC 


65(41) 




JCBLVT 


64(40) 




JCBMKYL 


38(26) 




♦JCBJMLPOS 


60 (3C) 


08 


♦JCBNODEQ 


148(94) 


80 


JCBNOSAM 


184(B8) 




♦JCBNTFD 


148(94) 


08 


♦JCBOPEN 


61(3D) 


80 


♦JCBORGHD 


61 (3D) 


20 


♦JCBORGHI 


61(3D) 


10 


♦JCBORGHS 


61 (3D) 


02 
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Field/Flag 


Offset 


Flag 


Naine 


Dec (Hex) 


Code (Hex) 


♦JCBORGHl 


61 (3D) 


04 


JCBORGN 


61(3D) 




♦JCBORGRI 


61 (3D) 


44 


♦JCBCRGSH 


61(3D) 


05 


♦JCBORGSS 


61 (3D) 


01 


*JCBPADKY 


179 (B3) 


10 


JCBPC 


66(42) 




♦JCBPCHK 


148(94) 


20 


JCBPOP 


67(43) 




♦JCEPPENQ 


148(94) 


10 


♦JCBPREM 


180(B4) 


80 


JCBPRESF 


63(3F) 




JCBPREVF 


30 (IE) 




JCBPREVR 


31 (IF) 




JCBPRLEN 


188(BC) 




♦JCBRAP 


148(94) 


40 


♦JCERDREQ 


60(3C) 


01 


JCERESl 


40(28) 




JCBRES2 


44(2C) 




JCBRES3 


48(30) 




JCBRES4 


52(34) 




JCBRES5 


56(38) 




♦JCBRETD 


180(B4) 


04 


♦JCBRETDL 


60 (3C) 


20 


♦JCERTIST 


60(3C) 


02 


JCBRWKF 


62(3E) 




JCBSDBND 


12 (OC) 




JCESDBl 


8(08) 




♦JCBSGRET 


60(3C) 


04 


JCBSIZE 


36(24) 




♦JCBSKPG 


148(94) 


04 


JCBSTORl 


68(44) 




JCBST0R2 


72(48) 




JCBST0R3 


76 (4C) 




JCBST0R4 


80(50) 




JCBST0R5 


84(54) 




JCBST0R6 


88(58) 




JCBST0R7 


92(5C) 




JCBST0R8 


96(60) 




♦JCBSWAP 


179 (B3) 


01 


♦JCBTAREX 


60(3C) 


10 


♦JCBTARPR 


60 (3C) 


80 


JCBTRACE 


16(10) 




♦JCBVL 


180(B4) 


08 


JCBWKRO 


100(64) 




JCBWKRl 


104(68) 




JCBWKR2 


108(60 




JCBWKR3 


112(70) 




JCBWRK4 


116(74) 




JCBWKR5 


120(78) 




JCBWKR6 


124(7C) 




JCBWKR7 


128(80) 




JCBWKR8 


132(84) 




JCBWKR9 


136(88) 




JCBWKRIO 


140(80 




JCBWKRll 


144(90) 




JCBWKR12 


148(94) 




JCBWKR13 


152(98) 




JCBWKR14 


156 (9C) 




JCBWKR15 


160 (AO) 




JCBWK12A 


148(94) 




JCBWK12B 


149(95) 
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Field/Flag Offset Flag 

Naine Dec(Hex) Code(Hex) 

♦JCBXP 180 (BU) 10 
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RECORD LAYOUT - JCB 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



0(00) 
4(04) 

8(08) 

12 (OC) 
16(10) 



4 
14 



JCBLEVTB 
JCBLEVND 

JCBSDBl 

JCBSDBND 
JCBTRACE 



Address of level table 

Address of end of level table 
+ 1 

Address of first SDB entry 
(roots) 

Address of end of SDBs + 1 

Prior 7 functions followed by 
return code 



DL/I FUNCTION CODES 

The following calls require a PCB and will be traced in JCBTRACE. Any 
call not requiring a PCB is not put in the trace table. However, the 
function code appears in JCBPREVF or JCBPREVR.. 



Name 


Code (Hex] 


> 


Meaning 


FUNCGU 




01 




•GU* Get Unique 


FUNCGHU 




01 




"GHU" Get Hold Unique 


FUNCGN 




03 




"GN' Get Next 


FUNCHHN 




03 




■GHN' Get Hold Next 


FUNCGNP 




04 




'•GNP* Get Next Within Parent 


FUNCGHNP 




04 




"GHNP* Get Hold Next Within Parent 


FUNCDRTY 




20 




Delete/Replace 


FUNCREPL 




21 




«REPL" Replace 


FUNCDLET 




22 




"DLET" Delete 


FUNCISTY 




40 




"ISRT" Insert 


FUNCISRT 




41 




Insert 


FUNCASRT 




42 




DL/I Utility Insert 


The following 


codes 


roust have a PCB 


FUNCCHKP 




85 




"CHKP" checkpoint 


FUNCPCBM 




90 




PCB Call for MPS 


The following 


codes 


do 


not require a PCB 


FUNCUNLD 




AO 




"UNLD" Unload Call 


FUNCGSCD 




Al 




"GSCD" Get SCD Call 


FUNCTERM 




A3 




"TERM" Termination Call 


DL/I FUNCTION 


TYPES 






FUNCGNTY 




80 




Get Next Type 


FUNCGUTY 




40 




Get Unique Type 


FUNCPATY 




20 




Parent Type 


FUNCHOTY 




08 




Hold Type 


30 (IE) 


1 


JCBPREVF Prior function 


31 (IF) 


1 


JCBPREVR Prior return c< 



byte) 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



32(20) 



36(24) 
38(26) 

40(28) 



JCBLEVIC 



JCBSIZE 
JCBMKYL 

JCBRESl 



44(20 


4 


JCBRES2 




48(30) 


4 


JCBRES3 




52(34) 


4 


JCBRES4 




56(38) 


4 


JCBRES5 




60 (3C) 


1 


JCBCODE 








JCBTARPR 


80 






JCBDEFDL 


40 






JCBRETDL 


20 






JCBTAREX 


10 



Address of first level table 
entry in call; Address of 
lowest level table entry 
succesfully processed by 
retrieve 

PCB plus JOB size 

Maximxira length of key 
feedback area 

Call characteristics set by 

call analyzer 

JCBRESl = 

X«80* 

X"40* 

X«20' 

X«10« 

X'OS" 

X"04" 



X"02" 



No SSAs 

Qualified SSAs 
Unqualified SSAs 
Multiple SSAs 
Multiple unqualified SSAs 
Qualified SSA after an 
unqualified SSA 
Last SSA qualified 



JCBRESl + 1 = 

X*04* Call has C command code 
X*02'' Call has T command code 
X'Ol" JCBLEVIC has been filled 
on this call 

JCBRESl + 2 = 

X*80* Any level qualified on 

data 
X"40" Any level had D command 

code 
X*20" Qualified SSA follows 

D command code 

JCBRESl + 3 = 

X"80" Field is not in sublist 

X"40" Qualification field is 

in logical parent 
X*01* This set has a key field 

Action modules work area 

Action Modules work area 

Action Modules work area 

Action modules work area 

Inter-module communications 

switch 

DLZPOST update twin pointers 

only 

Re--insert of a deleted 

segment 

Return deleted segment for HD 

unload 

Reposition for GN (no SSA) 

with multiple positioning 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code.(Hex) Meaning 



61 (3D) 



62 (3E) 
63 (3F) 

64(40) 



JCBMLPOS 


08 


JCBSGRET 


04 


JCBRTIST 


02 


JCBRDREQ 


01 


JCBORGN 




JCBOPEN 


80 


JCBORGRI 


44 


JCBORGHD 


20 


JCBORGHI 


10 


JCBORGSH 


05 


JCBORGHI 


04 


JCBORGHS 


02 


JCBORGSS 


01 


JCBRWKF 




JCBPRESF 




JCBLVT 




JCBDOPI 


08 


JCBALLEX 


04 


JCBFLS 


01 



65(41) 


1 


JCBLVC 


66(42) 


1 


JCBPC 


67(43) 


1 


JCBPOP 


68(44) 


4 


JCBSTORl 


72(48) 


4 


JCBST0R2 


76 (4C) 


4 


JCBST0R3 


80(50) 


4 


JCBST0R4 



Retrieve keeping multiple 

positions 

Used in positioning after not 

found 

Retrieve positioning for 

insert 

DLZSKPG start at next 

occurence of segment 

Open switch and composite 
organization of all SDBs in 
the JOB 

Open done for all data sets 
in the JCB 

Organization is root of index 
Organization is EDAM 
Organization is HIDAM 
Organization is simple HISAM 
Organization is HISAM 
Organization is HSAM 
Organization is simple HSAM 

Retrieve 's working function 

Present coded function (see 
DL/I Function Codes) 

Switches used in accessing 
segments via DLZSKPG routine 
program isolation is to be 
done for associated PCB 
All sensitive segments have 
exclusive intent 
At least one segment has 
field level sensitivity (used 
by call analyzer) 

Level of segment being 
searched for by retrieve 

Physical code of segment 
being searched for by 
retrieve 

Parent level for within 
parent calls 



Insert's use across I/O 
calls 



or 



Insert's use across I/O or 
calls 

Insert's use across I/O or 
calls 

Address of last segment read 
- referenced by label BEGBUF 
in retrieve 
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Offset Field/Flag Flag 

Dec(Hex) Length Name Code (Hex) Meaning 



84(54) 

88(58) 
92 (5C) 



JCBST0R5 



JCBST0R6 



JCBST0R7 



96(60) 


4 


JGBST0R8 




100(64) 


4 


JCBWKRO 




104(68) 


4 


JCBWKRl 




108(60 


4 


JCBWKR2 




112(70) 


4 


JCBWKR3 




116(74) 


4 


JCBWKR4 




120(78) 


4 


JCBWKR5 




124 (7C) 


4 


JCBWKR6 




128(80) 


4 


JCBWKR7 




132(84) 


4 


JCBWKR8 




136(88) 


4 


JCBWKR9 




140(80 


4 


JCBWKRl 




144(90) 


4 


JCBWKRll 




14 8(94) 


4 


JCBWKRl 2 




148(94) 


4 


JCBWK12A 








JCBNODEQ 


80 






JCBRAP 


40 






JCBPCHK 


20 






JCBPPENQ 


10 






JCBNTFD 


08 






JCBSKPG 


04 






JCBDLET 


02 






JCBISRT 


01 



Current segment RBA - 
referenced by label CURTTR in 
retrieve 

Retrieve 's use across I/O or 
calls 

Contains switches for 
positive check phase • 
referenced by label KEEPIT in 
retrieve 

Work area for retrieve 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Program isolation switches 

(retrieve only) 

No dequeue processing; all 

level table entries empty 

after CHKP, TERM, etc. 

Root anchor pointer enqueued 

(HDAM only) 

DLZPCHK calling DLZPOST 

(enqueue not required) 

DLZKDTL enqueued on physical 

parent searching on data 

field 

DLZPCHK processing not found 

condition 

DLZDEQ should release all 

outstanding enqueues 

ENQ/DEQ required in DLZPCHK 

due to delete 

Indicates DLZHIDA or DLZHDAM 

is accessing destination 

parent during a logical child 

insert 
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Offset Field/Flag Flag 

Dec(Hfex) Length Name Code (Hex) Meaning 



149(95) 


3 


JCBWK12B 


152(98) 


4 


JCBWKR13 


156 (9C) 


4 


JCBWKR14 


160 (AO) 


4 


JCBWKR15 



♦♦♦Start of each DSG section of JCB^^^ 
16 4 (A4) 4 JCBDCBA 



168(A8) 


2 


JCBDMBNO 




170 (AA) 


1 


JCBDCBNO 




171 (AB) 


1 


JCBINDA 








JCBDSOLS 


80 






JCBDSORI 


44 






JCBDSOHD 


20 






JCBDSOHI 


10 






JCBDSOHl 


04 






JCBDSOHS 


02 






JCBDSOUP 


01 


17 2 (AC) 


4 


JCBHSADD 




176 (BO) 


2 


JCBBOFF 




178(B2) 


1 


JCBINDB 




179 (B3) 


1 


JCBINDC 








JCBBLDEL 


80 






JCBHDULD 


40 






JCBCONST 


20 






JCBPADKY 


10 






JCBDUPS 


08 






JCBHSWLR 


01 


180 (B4) 


1 


JCBINDG 








JCBPREM 


80 






JCBDATX 


40 






JCBXP 


10 






JCBVL 


08 






JCBRETD 


04 






JCBCOMMD 


02 



Action modules work area 
Action modules work area 
Action modules work area 
Action modules work area 



Address of the ACB extension 
for this data set (KSDS ACB 
extension if HISAM) 

DMB number for this DSG 

ACB numbet of ACB in DMB 
(KSDS ACB number if HISAM) 

JCB Indicators 

This last DSG in JCB 

Data set group is root in 

index 

Data set group is HDAM 

Data set group is HIDAM 

Data set group is HISAM or 

simple HISAM 

Data set group is HSAM or 

simple HSAM 

Data set group is SHSAM or 

SHI SAM 

HSAM I/O area after open 

HSAM block size 

(Not used in DL/I DOS/VS) 

JCB indicators 

This DSG belongs to 

delete/replace 

HD unload is running 

Index data set contains 

constant 

Search argument not equal to 

key length 

Non-unique secondary index 

keys 

HSAM wrong length record 

JCB indicators • retrieve 

variable length flags 

Segment prefix moved to work 

area 

Segment completely expanded 

Force complete segment 

expansion 

The variable length routine 

has been entered for segment 

Data return call 

Path return call 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



181(B5) 


3 




184(B8) 


4 


JCBNOSAM 


188 (BC) 


U 


JCBLROOT 
JCBPRLEN 
JCBDSGLN 



♦♦Reserved** 

Retrieve HSAM's ID 

RBA of current root 

Length of JCB prefix 

Length of each DSG section of 

JCB 
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LEV - LEVEL TABLE ENTRY 



DSECT Name: LEV 



The level table entry is described as part of the general structure and 
description of the program specification block (PSB) . 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Natne 


Dec (Hex) 


Code (Hex) 


♦LEVCDB 


13(0D) 


80 


♦LEVCOMMC 


18(12) 


40 


♦LEVCOMMD 


19(13) 


04 


♦LEVCOMMF 


19(13) 


20 


♦LEVCOMML 


19(13) 


10 


♦LEVCOMMN 


19(13) 


02 


♦LEVCOMMQ 


19(13) 


01 


♦LEVCOMMT 


18(12) 


80 


♦LEVCOMMX 


18(12) 


20 


♦LEVCONT 


13 (OD) 


08 


♦LEVDATA 


12(0C) 


08 


♦LEVDATAl 


17(11) 


04 


♦LEVDLET 


12(0C) 


80 


♦LEVEMPTY 


12(0C) 


40 


LEVEND 


36(24> 




♦LEVEOD 


13(0D) 


20 


LEVFl 


12(0C) 




LEVF2 


13(0D) 




LEVF3 


17(11) 




LEVFU 


18(12) 




LEVF5 


19(13) 




♦LEVHELD 


12 (OC) 


20 


♦LEVHIER 


12(0C) 


10 


♦LEVISRT 


17(11) 


80 


♦LEVKEYl 


17(11) 


02 


♦LEVLAST 


12(0C) 


01 


LEVLEN 


36(24) 




LEVLEV 


0(00) 




♦LEVLSW 


13(0D) 


02 


♦LEVMEMAC 


20(14) 


08 


♦LEVMEMAS 


20(14) 


02 


LEVMEMBR 


20(14) 




♦LEVMEMEQ 


20(14) 


80 


♦LEVMEMGT 


20(14) 


20 


♦LEVMEMKY 


20(14) 


04 


♦LEVMEMLT 


20(14) 


40 


♦LEVMEMNE 


20(14) 


10 


♦LEVMEMPL 


20(14) 


01 


♦LEVNDB 


13(0D) 


01 


♦LEVNFPOS 


13(0D) 


40 


LEVNUPC 


16(10) 




LEVNUSDB 


28 (IC) 




LEVPC 


1(01) 




♦LEVPFRST 


12 (OC) 


02 


♦LEVPLAST 


12(0C) 


04 


♦LEVPSUDO 


17(11) 


08 


LEVSDB 


8(08) 
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Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


LEVSEGOF 


2(02) 




LEVSSA 


32(20) 




♦LEVSTOP 


13(0D) 


04 


LEVTTR 


4(04) 




LEVUSEOF 


14 (OE) 
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RECORD LAYOUT - LEV 



Offset Field/Flag Flag 

Pec(Hex) Length Name Code (Hex) Meaning 



0(00) 
1(01) 



1 
1 



LEVLEV 
LEVPC 



Level number 

Current segment physical code 



Note: This portion of the level table , once set by retrieve/insert, is 
never cleared to zeros; it is only changed as needed. 



2(02) 

U(04) 
8(08) 

12 (OC) 



13 (OD) 



14 (OE) 



LEVSEGOF 



LEVTTR 




LEVSDB 




LEVFl 




LEVDLET 


80 


LEVEMPTY 


40 


LEVHELD 


20 


LEVHIER 


10 


LEVDATA 


08 


LEVPLAST 


04 


LEVPFRST 


02 


LEVLAST 


01 


LEVF2 




LEVCDB 


80 


LEVNFPOS 


40 


LEVEOD 


20 


LEVCONT 


08 



LEVSTOP 

LEVLSW 
LEVNDB 



LEVUSEOF 



04 

02 
01 



Segment's physical code 
offset from start of record 
(relative offset to segment 
from start of buffer) 

Relative byte address 

SDB entry address for 
current segment physical code 
in this entry 

Flags 

Segment at this level newly 

deleted 

This level table entry empty 

Segment at this level in hold 

status 

Segment at this level in 

hierarchic path (HISAM only) 

Segment at this level moved 

to user 

segment is last of type for 

parent 

Segment is first of type for 

parent 

This is the last level table 

for PCB 

Flags 

Verify enques required in 

data base of current segment 

Level has not found position 

for higher level 

EOD flag 

The SSA at this level allows 

retrieve to obtain the next 

sequential segment 

Used to determine the setting 

of LEVCONT by retrieve 

Used by retrieve 

Verify enques required in 

destination parents data base 

offset of segment in user I/O 
area (PSTUSER) 



Note: Fields LEVNUPC through LEVSSA describe the SSA set by the call 
analyzer for this entry. 



16(10) 



LEVNUPC 



Physical code of requested 
segment 
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Offset Field/Flag Flag 

Dec (Hex) X^enqth Name Code (Hex) Meaning 



17(11) 



18(12) 



19(13) 



20(14) 



LEVF3 
LEVISRT 


80 


LEVPSUDO 


08 


LEVDATAl 
LEVKEYl 


04 
02 


LEVF4 
LEVCOMMT 


80 


LEVCOJyiMC 


40 


LEVCOMMX 


20 


LEVF5 
LEVCOMMF 


20 


LEVCOMML 


10 


LEVCOMMD 


04 


LEVCOMMN 


02 


LEVCOMMQ 


01 


LEVMEMBR 
LEVMEMEQ 
LEVMEMLT 
LEVMEMGT 
LEVMEMNE 


80 
40 
20 
10 


LEVMEMAC 


08 


LEVMEMKY 
LEVMEMAS 
LEVMEMPL 


04 
02 
01 



Flags 

Inserting at this level (set 

by retrieve) 

This is a pseudo SSA filling 

gap 

SSA qualified on data field 

SSA qualified on key field 

Flags 

T command code • retrieve by 

direct address 

C command code • qualifier is 

concatenated key 

X command code - index 

maintenance internal call 

Flags 

F command code • get first of 

segment type 

L command code ^ get last of 

segment type 

D command code - transfer 

data this level 

N command code -^ do not 

replace this level 

Q command code - enqueue 

segment at this level read 

only 

Switch for each member 
Operator has = sign 
Operator has < sign 
Operator has > sign 
Operator is not equal 
(LEVMEMGT + LEVMEMLT) 
This member in use • 
(unqualified in only bit) 
Qualification is on key field 
See meaning for X'Ol' 
LEVMEMAS + LEVMEMPL = right 
parenthesis present (always 
on for DL/I DOS/VS) 



21(15) 


7 


28 (IC) 


4 


32(20) 


4 


36(24) 




36(24) 





LEVNUSDB 
LEVSSA 

LEVEND 
LEVLEN 



♦♦Reserved** 

SSAs SDB address 

SSAs left parenthesis 
position address 

End of level table entry 

Length of level table entry 
(LEVEND minus LEVLEV) 
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MPCPT - MPC PARTITION TABLE 



The Master Partition Controller (MPC) partition table is used to pass 
control information when processing batch partition application programs 
under multiple partition support (MPS). The MPC partition table resides 
in the transaction work area. There is one entry for every partition 
sysgened. 



Length 
Field Name (bytes) Description 

MPCPARTB 200 Contains one 28 byte entry (see MPC 

Partition Table entry) for each partition 
defined during system generation. The last 
entry is delimited by a full-word of X'FF". 

MPCECBLT 4 (per This is the CICS WAITM ECB list, 
entry) It contains one entry for each: 

• DLZXCBOO (Stop Transaction XECB) - used 
to stop MPS 

• DLZXCBOl (Stop Partition XECB) • posted 
by BPC when it stops 

• DLZXCBnO (Start partition XECB) - 
defined by MPS. Used by batch 
initialization to notify MPC to start the 
EPC 

• DLZXCBn3 (ABEND XECB) - Used for ABEND 
handling 

Note: n is the partition indicator. It can 
be 1 through 7 . 

The last entry is delimited by a fullword of 
X"FF». 



Licensed Material • Property of IBM 5-59 



MPC PARTITION TABLE ENTRY 



DSECT Name: MPCPT 



There is one MPC partition table entry for every partition defined 
during system generation. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


Code (Hex) 


♦MPCADEF 


0(00) 


02 


MPCAXECE 


12(0C) 




♦MPCCNBPC 


20(1U) 


80 


MPCDELIM 


0(00) 




♦MPCERR 


0(00) 


40 


MPCFLAG 


0(00) 




MPCFLAGl 


20(14) 




♦MPCPACT 


0(00) 


80 


MPCPID 


3(03) 




♦MPCPSTP 


0(00) 


10 


MPCPTLN 


28 (IC) 




MPCRCi 


1(01) 




MPCRC2 


2(02) 




♦MPCREBPC 


0(00) 


01 


♦MPCSDEF 


0(00) 


04 


MPCSXECB 


8(08) 




MPCTCA 


4(04) 




♦MPCTSTP 


0(00) 


20 


♦MPCXECB 


0(00) 


08 



v« 
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RECORD LAYOUT • MFC 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code(Hex) Meaning 



0(00) 
0(00) 



MPCDELIM 




MPCFLAG 




MPCPACT 


80 


MPCERR 


40 


MPCTSTP 


20 


MPCPSTP 


10 


MPCXECB 


08 


MPCSDEF 


04 


MPCADEF 


02 


MPCREBPC 


01 



1(01) 


1 


MPCRCl 


2(02) 


1 


MPCRC2 


3(03) 


1 


MPCPID 


4(04) 


4 


MPCTCA 


8(08) 


4 


MPCSXECB 


12 (OC) 


4 


MPCAXECB 


16(10) 


4 


Unnamed 


20(14) 


1 


MPCFLAGl 
MPCCNBPC 80 


21(15) 


3 


Unnamed 


24(18) 


4 


Unnamed 


28(10) 




MPCPTLN 



MPCPT delimiter field 

MPC activity flags 

Partition active indicator 

Error condition encountered 

on DL/I scheduling call, or 

BPC attach failure 

Stop transaction indicator 

stop partition indicator 

XECBs deleted for this 

partition 

Start XECB defined 

ABEND XECB defined 

Reschedule BPC 

Error return code from 
TCAFCTR 

Error return code from 
TCADLTR 

Partition identifier (Fl, 
F2,,..) 

Address of TCA 

Address of stop partition 
XECB (DLZXCBOl) 

Address of partition ABEND 
XECB (DLZXCBn3) 

♦♦Reserved** 

MPC activity flags 
Cancel BPC at stop 
transaction when MPS batch 
partition is not active* 

**Reserved** 

**Reserved** 

Length of partition table 
entry 
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PCB 



PROGRAM COMMUNICATION BLOCK 



DSECT Name: DEPCB 



The data iranageitient PCB (program communication block) is described as 
part of the general structure and description of the program 
specification block (PSB), 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


Code (Hex) 


DBPCBDBD 


0(00) 




DBPCBJCB 


16(10) 




DBPCBKFD 


36(24) 




DBPCBLEV 


8(08) 




DBPCBLKY 


28 (IC) 




DBPCBMKL 


28 (IC) 




DBPCBNSS 


32(20) 




DBPCEPRC 


12(0C) 




DBPCBSFD 


20(14) 




DBPCBSTC 


19 (OA) 




♦DBPCBTKW 


16(10) 


80 



RECORD LAYOUT - PCB 



Offset 




Field/Fla< 


Dec (Hex) 


Lencjth 


Name 


0(00) 


8 


DBPCBDBD 


8(08) 


2 


DBPCBLEV 


10 (OA) 


2 


DBPCBSTC 


12(00) 


4 


DBPCBPRO 


16(10) 


4 


DBPCBJCB 
DBPCBTKW 


20(14) 


8 


DBPCBSFD 


28(10) 


4 


DBPCBLKY 


28 (IC) 


4 


DBPCBMKL 


32(20) 


4 


DBPCBNSS 


36(24) 


Var 


DBPCBKFD 



Code (Hex) Meaning 



80 



DBD Name 

Level feedback 

Status codes 

DL/I processing options 

JOB address 

Another task waiting for 

resource owned by this task 

Segment name feedback 

Maximum length of key 
feedback area 

Current length of key 
feedback area 

Number of sensitive segments 
in the PCB 

Key feedback area 
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PDCA - PROBLEM DETERMINATION CONTROL AREA 



DSECT Name: PDCA 



The PDCA (Problem Determinatxon Control Area) is used to hold 
miscellaneous data used in problem determination. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


PDCACPAC 


0(00) 




PDCAFERT 


8(08) 




PDCAFLAG 


12(0C) 




PDCAMSG 


13(0D) 




♦PDCASTOP 


12(0C) 




PDCAXPRM 


4(04) 





RECORD LAYOUT 



PDCA 



Offset Field/Flag Flag 

Dec(Hex) Length Name Code (Hex) Meaning 



0(00) 



4(04) 



PDCACPAC 



PDCAXPRM 



8(08) 


4 


PDCAFERT 


12 (OC) 


1 


PDCAFLAG 
PDCASTOP 


13 (OD) 


3 


PDCAMSG 


16 (OF) 


16 





80 



Variable length segment 
compression routine list 
pointer 

Secondary index suppression 
routine list pointer 

Field exit routine list 

PDCA flag byte 

Stop saving messages 

ABEND code 

♦♦Reserved** 
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PDIR 



PSB DIRECTORY 



DSECT Name: DLZPDIR 



The PSB directory contains an entry for every PSB (program specification 
block) that may run under DL/I control. The PSB directory is part of 
the DL/I nucleus and is created during DL/I system definition for online 
processing. The start address of the PSB directory (SCDDLIPS) and the 
entry length (SCDDLIPL)are contained in the SCD (system contents 
directory) a 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


Code (Hex) 


PDIRADDR 


8(08) 




♦PDIRBAD 


19(13) 


01 


♦PDIRBPLI 


19(13) 


08 


PDIRCODE 


18(12) 




♦PDIRDEX.T 


18(12) 


02 


♦PDIRDUPL 


18(12) 


10 


♦PDIREM 


19(13) 


20 


PDIREMOT 


24(18) 




♦PDIREXC 


18(12) 


40 


PDIRLEN 


28 (IC) 




♦PDIRNOSC 


19(13) 


80 


♦PDIRNTNT 


19(13) 


10 


PDIROPTC 


19(13) 




♦PDIRPLI 


18(12) 


20 


PDIRPSBL 


12(0C) 




♦PDIRSCHD 


19(13) 


40 


PDIRSILA 


20(14) 




PDIRSYM 


(0(00) 




♦PDIRTFAL 


18(12) 


01 


♦PDIRUPD 


18(12) 


80 


♦PDIRZWA 


16(10) 
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RECORD LAYOUT 



PDIR 



Offset Field/Flag Flag 
Ded(Hex) Length Name Code (Hex) 



Meaning 



0(00) 



20 (lU) 
24(18) 
28 (IC) 



PDIR 



0(00) 


8 


PDIRSYM 




8(08) 


4 


PDIRADDR 




12 (OC) 


a 


PDIRPSBL 




16(10) 


2 


PDIRZWA 




18(12) 


1 


PDIRCODE 








PDIRUPD 


80 






PDIREXC 


40 






PDIRPLI 


20 






PDIRDUPL 


10 






PDIRDELT 


02 






PDIRTFAL 


01 


19(13) 


1 


PDIROPTC 








PDIRNOSC 


80 






PDIRSCHD 


40 






PDIRREM 


20 






PDIRNTNT 


10 






PDIRBPLI 


08 






PDIRBAD 


01 



PDIRSILA 



PDIREMOT 



PDIRLEN 



Label used to establish 
address 

PSB execution name - 
converted from name supplied 
during PSBGEN 

PSB address (contains for 
remote PSB) 

Storage required for PSB 

storage required for index 
workarea 

PSB code byte 

This PSB is update sensitive 

This PSB requires DMB 

exclusive control 

This PSB for PL/I 

This PSB is duplicate 

This PSB is delete sensitive 

PSDB-SDB chaining error 

detected during online task 

termination 

PSB scheduling codes 

Do not schedule this PSB 

This PSB is scheduled 

This PSB is remote 

This PSB is waiting for 

intent 

DFHTBP using PL/I PSB 

PSB initialization failed 

Address of PSB segment intent 
list 

Address of RPDIR entry for 
this remote PSB 

PSB directory entry length 
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PPST - PST PREFIX 



DSECT Name: DLZPPST 



The PST prefix contains data required for user task scheduling in a 
CICS/VS online environirent. . It also contains a section used by buffer 
handler for enqueue/dequeue information and another section used for 
online segment intent scheduling. The PST prefix is logically part of 
the PST (partition specification table). However, in order to operate 
more efficiently in a virtual storage environment, all PST prefixes Cone 
for batch) are organized so that they are physically located in one 
contiguous area* 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


♦PPSTA 


a(oa) 


01 


♦PPSTACT 


4(oa) 


04 


♦PPSTBF 


4(oa) 


10 


PPSTCA 


5(05) 




PPSTCB 


1(01) 




PPSTCF 


0(00) 




PPSTCHAI 


28 (IC) 




PPSTCW 


3(03) 




PPSTECB 


2(02) 




PPSTEND 


32(20) 




PPSTEXCI 


12(0C) 




PPSTID 


8(08) 




PPSTIND 


4(04) 




♦PPSTIO 


4(04) 


80 


PPSTLEN 


32(20) 


(See segment . 


PPSTMATR 


24(18) 




♦PPSTMPS 


4(04) 


08 


♦PPSTMSDL 


4(04) 


02 


PPSTPECI 


16(10) 




PPSTPDIR 


12(0C) 


(See segment 


♦PPSTSI 


4(04) 


40 


PPSTSUPO 


20(14) 




♦PPSTTC 


4(04) 


2Q 


PPSTTC 


9(09) 




PPSTTSKP 


16(10) 


(see segment 
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RECORD LAYOUT * PPST 



Offset 
Dec (Hex) 


Lenqth 


Field/Flag 
Name 


Flag 
Code (Hex) 


0(00) 


1 


PPSTCF 




1(01) 


1 


PPSTCB 




2(02) 


1 


PPSTECB 




3(03) 


1 


PPSTCW 




4(04) 


1 


PPSTIND 








PPSTIO 
PPSTSI 


80 
40 






PPSTTC 


20 






PPSTBF 


10 






PPSTMPS 
PPSTACT 
PPSTMSDL 
PPSTA 


08 
04 
02 
01 


5(05) 


3 


PPSTCA 




8(08) 


1 


PPSTID 




9(09) 


3 


PPSTTCA 





Meaning 



Prefix chain forward pointer 

Prefix Chain backward pointer 

POST/WAIT byte of PST ECB 

PST prefix program isolation 
wait chain 

Task schedule and dispatch 

indicators 

Waiting for I/O 

Cannot schedule due to 

segment intent conflict 

Cannot schedule - task count 

limit exceeded 

Task enqueued by buffer 

handler 

Indicates MPS task 

This is current task 

Scheduled by BPC 

Task is scheduled 

Address of PST 

Task ID 



***This section used by buffer 
12 (OC) 4 PPSTEXCI 



Task TCA address 
handler for enqueue/dequeue*** 



16(10) 



PPSTPECI 



20(14) 



PPSTSUPO 



24(18) 



PPSTMATR 



Enqueue/dequeue pointers for 
existing control interval: 
Byte 0-1 = buffer number 
Byte 2-3 = PPST number of 

task next in 

chain 

Enqueue/dequeue pointers for 
pending control interval: 
Byte 0-1 = buffer number 
Byte 2-3 = PPST number of 

task next in 

chain 

Enqueue/dequeue pointer for 
subpool space: 
Byte 0-1 = subpool number 
Byte 2-3 = PPST number of 

next task in 

chain 

Enqueue/dequeue pointers for 

interlock detection matrix 

space: 

Byte 0-1 = X'OO' 

Byte 2-3 = PPST number of 

next task in 

chain 
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Offset Field/Flag Flag 

Dec (Hex) Lenc^th Name Code (Hex) Meanincr 

28 (IC) 4 PPSTCHAI Enqueue/dequeue pending 

control interval chain field 
pointers: 

Byte 0-1 = buffer number 
Byte 2*3 = PPST number of 
next task in 
chain 

32(20) ii. PPSTEND End of prefix DSECT 

♦♦♦This section used to online segment intent scheduling^^ 

12 (OC) 4 PPSTPDIR Task PDIR entry address 

16(10) 1 PPSTTSKP Task dispatching priority 

32(20) 1 Reset to end of prefix DSECT 

32(20) PPSTLEN Length of PST prefix 
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PSB • PSB Prefix 



DSECT Nair.e: PSB 



The PSB prefix is described as part of the general structure and 
description of the program specification block (PSB) 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


offset 


Flag 


Name 


Dec (Hex) 


Code (Hex) 


PSBCODE 


29(1D) 




PSBDBOFF 


3a(22) 




♦PSBFLS 


29 (ID) 


01 


PSBFRTA 


0(00) 




PSBIOASZ 


1(01) 




PSBIOAWK 


18(24) 




PSBINDEX 


2a (IC) 




PSBLIST 


36(24) 




PSBNDXWK 


20(14) 




♦PSBPLI 


29 (ID) 


10 


PSBPST 


12(0C) 




PSBSEGV^K 


8(08) 




PSBSIZE 


30(1E) 




PSBTPOFF 


32(20) 




PSEVMID 


0(00) 




♦PSBVll 


0(00) 


01 


PSEXIOWK 


4(04) 




PSBXPCB 


16(10) 
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RECORD LAYOUT - PSB 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



0(00) 
0(00) 

1(01) 

4(04) 



36(24) 



Var 



PSBVMID 
PSBVll 

PSBFRTA 



PSBIOASZ 



PSBXIOWK 



01 



PSBLIST 



DOS DL/I version ID 
Version lol or later 

Field exit routine address. 
If no entries in table, low 
order 3 bytes = (used only 
during initialization) 

Size of the PSB I/O work area 
whose address is in PSBIOAWK. 
This field contains a 16-bit 
logical number. 

Address of index I/O work 
area or user's version of a 
segment built by retrieve 



8(08) 


4 


PSBSEGWK 




Address of variable length 
segment work area 


12 (OC) 


4 


PSBPST 




PST address if PSB is 
scheduled or active 


16(10) 


4 


PSBXPCB 




Address of index PCB 


20(14) 


4 


PSBNDXWK 




Address of index maintenance 
work area or pointer to the 
field exit parameter list 


24(18) 


4 


PSBIOAWK 




Address of I/O work area 


28 (IC) 


1 


PSBINDEX 




(Not used in DL/I DOS/VS) 


29 (ID) 


1 


PSBCODE 
PSBPLI 
PSBFLS 


10 
01 


PSB flags 

PL/I is source language 

PSB contains field sensitive 

segment 


30 (IE) 


2 


PSBSIZE 




PSB size 


32(20) 


2 


PSBTPOFF 




(Not used in DL/I DOS/VS) 


34(22) 


2 


PSBDBOFF 




Offset from the PSBLIST to 



first DB PCB 

Beginning of PCB list,. Note: 
this field is a list of 
fullword pointers containing 
PCB addresses. Last PCB 
address word has byte 0, bit 
0=1. List may contain a 
maximum of 64 addresses. For 
PL/I programs these pointers 
are to the dope Vector Tables 
in which the first word is a 
pointer to the associated 
PCB. 
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PSDB - PHYSICAL SEGMENT DESCRIPTION BLOCK 



DSECT Name: DMBPSDB 



The PSDB is described as part of the general structure and description 
of the data management block (DMB) 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


DMBCKL 


lU(OE) 




♦DMBCPT 


24(18) 


04 


♦DMBCPTIT 


24(18) 


01 


♦DMBCPTKY 


24(18) 


02 


♦DMCCTR 


7(07) 


80 


DMBDCB 


6C06) 




DMBDL 


10 (OA) 




DMBDLT 


13(0D) 




♦DMBDRL 


13(0D) 


03 


♦DMBDRP 


13(0D) 


02 


♦DMBDRV 


13(0D) 


01 


♦DMBEX 


16(10) 


80 


DMBFDBA 


16(10) 




DMBFLAG 


32(20) 




DMBFSDB 


20(14) 




♦DMBIFST 


12(0C) 


10 


♦DMBIHERE 


12(0C) 


30 


♦DMBILST 


12(0C) 


20 


♦DMBIRL 


12(0C) 


03 


♦DMBIRP 


12 (OC) 


02 


♦DMBIRV 


12(0C) 


01 


DMBISRT 


12(0C) 




♦DMBLCEX 


32(20) 


20 


DMBLEV 


2(02) 




♦DMBLP 


7(07) 


02 


♦DMBLPEX 


32(20) 


40 


DMBLST 


32(20) 




♦DMBLTBK 


7(07) 


04 


♦DMBLTFD 


7107) 


08 


♦DMBNXEX 


32<20) 


10 


♦DMBPI 


24(18) 


80 


DMBPLEM 


36(24) 




♦DMBPP 


7(07) 


10 


DMBPPBK 


5(05) 




DMBPPFD 


4(04) 




DMBPRSZ 


8(08) 




DMBPSC 


1(01) 




DMBPSDBN 


36(24) 




♦DMBPTBK 


7(07) 


20 


♦DMBPTFD 


7(07) 


40 


DMBPTR 


7(07) 




♦DMBRRL 


13(0D) 


OC 


♦DMBRRP 


13(0D) 


08 


♦DMBRRV 


13(0D) 


04 


DMBSC 


0(00) 




DMBSCTAB 


25(19) 




DMBSGMN 


28 (IC) 





Licensed Material • Property of IBM 5-71 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


Code (Hex) 


DMBSGMX 


30 (IE) 




♦DMBUP 


16(10) 


40 


DMBUSE 


16(10) 




DMBVLDFG 


24(18) 




♦DMBVLS 


24(18) 


04 


♦DMBXDES 


32(20) 


04 


DMBXNULL 


3(03) 




♦DMBXPROT 


12(0C) 


80 
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RECORD LAYOUT - PSDB 



Offset Field/Flag Flag 

De c ( Hex ) Length Name Code (Hex) Meaning 



0(00) 

1(01) 
2(02) 
3(03) 
4(04) 

5(05) 

6(06) 
7(07) 



13<0D) 



DMBSC 



1 
1 
1 
1 



8(08) 


2 


19 (OA) 


2 


12 (OC) 


\ 



01 



DMBPSC 




DMBLEV 




DMBXNULL 




DMBPPFD 




DMBPPBK 




DMBDCB 




DMBPTR 




DMBCTR 


80 


DMBPTFD 


40 


DMBPTBK 


20 


DMBPP 


10 


DMBLTFD 


08 


DJMBLTBK 


04 


DMBLP 


02 


DMBPRSZ 




DMBDL 




DMBISRT 




DMBXPROT 


80 


DMBIHERE 


30 


DMBILST 


20 


DMSIFST 


16 


DMBIRL 


03 


DMBIRP 


02 


DMBIRV 


01 


DMBDLT 




DMBRRL 


OC 


DMBRRP 


08 


DMBRRV 


04 


DJyiBDRL 


03 


DMBDRP 


02 


DMBDRV 


01 



Segment code 
Root segment code 

Parent's segment code 

Segment level 

(Not used in DL/I DOS/VS) 

Pointer number in parent to 
first occurrence of segment 
for parent 

Pointer number in parent to 
last occurrence of segment 
for parent 

ACB number 

Prefix flags 

Counter present 

Segment has physical twin 

forward pointer 

Segment has physical twin 

backward pointer 

Segment has physical parent 

pointer 

Segment has logical twin 

forward pointer 

Segment has logical twin 

backward pointer 

Segment has logical parent 

pointer 

prefix length of segment 

Data length of segment 

Insert rules 

System data in index is 

protected 

If no key field, insert at 

current position 

If no key field, insert aftet 

existing segment 

I^ no key field , insert 

before existing segment 

Insert rule is logical 

Insert rule is physical 

Insert r^le is virtual 



Delete/replace 
Replace rule is 
Replace rule is 
Replace rule is 
Delete rule is 
Delete rule is 
Delete rule is 



rules 
logical 
physical 
virtual 
logical 
physical 
virtual 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meanincr 



14 (OE) 
16(10) 

16(10) 
20(14) 
24(18) 



25(19) 
28 (IC) 
30(1E) 
32(20) 



32(20) 

36(24) 
36(24) 



DMBCKL 




DMBUSE 




DMBEX 


80 


DMBUP 


40 


DMBFDBA 




DMBFSDB 




DMBVLDFG 




DMBPI 


80 


DMBCPT 


08 


DMBVLS 


04 


DMBCPTKY 


02 


DMBCPTIT 


01 



DMBSCTAB 



DMBSGMN 




DJMBSGMX 




DMBFLAG 




DMBLPEX 


40 


DMBLCEX 


20 


DMBNXEX 


10 


DMBXDEX 


04 


DMBLST 




DMBPSDBN 




DMBPLEM 





Concatenated key length of 
parent of this segment 

Code Byte 

This PSDB in use exclusively 
This PSDB in use for update* 
Bits 2^7 contain a count of 
read-only users 

Address of FDBs for this 
segment 



Address of first SDB 
this segment 



for 



Variable length data flag 
Program isolation should be 
done for this segment 
Segment has compression 
routine 

Segment is variable length 
Compression routine has key 
expand routine 
Compression routine has 
intialization processing 

Address of segment compaction 
table 

If variable length segment; 
minimum length of segment 

If variable length segment; 
maximum length of segment 

Secondary list flag 
A logical parent exists 
(segment is a logical child) 
One or more logical children 
exists (segment is a logical 
parent) 

One or more indexes exist 
An indexed segment exists 

Address of secondary list for 
this segment 

End of one PSDB entry 

Length of each PSDB entry 
(DMBPSDBN minus DMBSC) 
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PSIL - PSB INTENT LIST 



DSECT Name: DLZPSIL 



The PSB intent list is pointed to froiii the PSB directory and is a list 
of all the DMBs which may be used by that PSB (program) . 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


♦PSILBFRI 


8(08) 


20 


♦PSILDBEX 


8(08) 


80 


♦PSILDBUP 


8(08) 


40 


PSILDIRA 


0(00) 




PSILDIRN 


4(04) 




PSILDMBN 


0(00) 




PSILLNGH 


9(09) 




PSILNTNT 


8(08) 




PSILSEGD 


10 (OA) 
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RECORD LAYOUT • PSIL 



Offset Field/Flag Flag 

Pec (Hex) Length Name Code (Hex) Meaning 



0(00) 

0(00) 

4(04) 
6(06) 



8 



PSILDMBN 



PSILDIRA 



PSILDIRN 



8(08) 


1 


PSILNTNT 








PSILDBEX 


80 






PSILDBUP 


40 






PSILBFRI 


20 


9(09) 


1 


PSILLNGH 




10 (OA) 


Var 


PSILSEGD 





DMB name for this list entry 
•overlaid during 
initialization 

Address of DMB directory 
entry - resolved during 
initialization 

DMB number of this DMB 

♦♦Reserved** 

Segment intent descriptor 

byte 

PSB contains a PCB which 

requires exclusive control 

for this DMB 

PSB contains a PCB which is 

update sensitive 

Buffer pool space required 

for this KSDS 

Length of this entry in list 

Segment intent bits. Two 
bits are used for each 
segment in the DMB and 
represent the PSB's 
sensitivity to each PSDB, 

Their meanings are: 

Bit Meaning 

00 

01 

10 

11 



PSB not sensitive to segment 
PSB read only sensitive 
PSB update sensitive 
PSB requests exclusive con- 
trol (HISAM root insert) 



The bits are allocated to 
segments in the following 
manner: 





BYTE1 


BYTE 2 


BIT 





1 


2 


3 


4 


5 


6 


7 





1 


2 


3 


4 


5 


6 


7 


SEGMENT 


4 


3 


2 


1 


8 


7 


6 


5 



The second part of the 
segment intent bits is a 
mask. It is constructed from 
the segment intent bits of 
the first part. Part 2 has 
the same length as part 1. 
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PST - PARTITION SPECIFICATION TABLE 



DSECT Name: DLZPST 



One partition specification table (PST) exists for each task in an 
online or batch processing partition. All DL/I resources allocated to 
the task can be located through the PST, The PST also contains pointers 
to the task I/O area and any segments currently associated with the 
task. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


♦DBLCMC 


436(1B4) 


00 


♦DBLFSEl 


436(1B4) 


00 


♦DBLFSE2 


436 (IBU) 


04 


♦DBLLASTC 


436 (1B4) 


08 


♦DBLLGDLT 


436(1B4) 


60 


♦DBLNDXC 


436(1B4) 


80 


♦DBLNEWBL 


436(1B4) 


01 


♦DBLNTCR 


436(1B4) 


70 


♦DBLOOPS 


436 (1B4) 


OA 


♦DBLPHYD 


436(1B4) 


20 


♦DBLPHYI 


436(1B4) 


40 


♦DBLPHYR 


436(1B4) 


10 


♦DBLPHYRO 


436(1B4) 


02 


PSTABIND 


72(048) 




PSTACBNM 


146(092) 




PSTACCT 


92(050 




♦PSTBATCH 


464(1D0) 


80 


♦PSTBDCAL 


133(085) 


10 


♦PSTEFALT 


132(084) 


05 


♦PSTBFMPT 


132(084) 


04 


PSTBFUSE 


160 (OAO) 




♦PSTBKLCT 


132(084) 


01 


PSTBLKNM 


140(080 




♦PSTBTMPF 


132(084) 


03 


♦PSTETMPF 


133(085) 


03 


PSTBUFFA 


156(090 




♦PSTBYALT 


132(084) 


06 


♦PSTBYEND 


133(085) 


28 


♦PSTEYLCT 


132(084) 


02 


PSTBYTNM 


148(094) 




♦PSTCALI 


465(1D1) 


02 


♦PSTCANLI 


483(1E3) 


40 


♦PSTCHKP 


465(1D1) 


04 


♦PSTCLOK 


133(085) 


00 


PSTCLRWT 


254 (OFE) 




PSTCNVB 


475(1DB) 




PSTCODEl 


68(044) 




PSTCPLN 


180(0B4) 




PSTCTGFL 


220 (ODO 




PSTCTGLl 


244(0F4) 




PSTCTGL2 


247 (0F7) 




PSTCTGNM 


180(0B4) 




PSTCTGPL 


180 (0B4) 




PSTCTGRT 


248(0F8) 
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Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


Code (Hex) 


PSTCTGWK 


2^4 (0F4) 




PSTCURWA 


340(154) 




PSTCWKLN 


248(0F8) 




PSTDATA 


152(098) 




PSTDBPCD 


128(080) 




PSTDBLET 


120(078) 




P STDGHN 


108(060 




PSTBGHNP 


112(070) 




PSTDGHU 


104(068) 




PSTDGN 


96(060) 




PSTBGNP 


100(064) 




PSTDGU 


92(050 




PSTDISRT 


116(074) 




PSTDLIWA 


44(020 




PSTDLIWB 


48(030) 




PSTDLIWC 


52(034) 




PSTDLIWD 


56(038) 




PSTDLIWE 


60(030 




PSTDLIWF 


64(040) 




PSTDLIWO 


4(004) 




PSTDLIWl 


8(008) 




PSTDLIW2 


12(000 




PSTDLIW3 


16(010) 




PSTDLIW4 


20(014) 




PSTDLIW5 


24(018) 




PSTDLIW6 


28(010 




PSTDLIW7 


32(020) 




PSTDLIW8 


36(024) 




PSTDLIW9 


40(028) 




PSTCIROM 


348 (15C) 




PSTDLTWA 


344(158) 




PSTDMBNJyi 


144(090) 




PSTDREPL 


124(070 




PSTCSGA 


136(088) 




♦PSTDUMPI 


483 (1E3) 


80 


♦PSTENDDA 


133(085) 


24 


♦PSTEOD 


133(085) 


2C 


♦PSTERASE 


132(084) 


OA 


PSTERCDl 


466(102) 




PSTERCD2 


467 (1D3) 




PSTERCOD 


466(1D2) 




PSTERDTl 


468(1D4) 




PSTERDT2 


475(1DB) 




PSTERIND 


483(1E3) 




♦PSTERMSP 


72(048) 


80 


♦PSTEXPAD 


254 (OFE) 


40 


♦PSTFBSPC 


132(084) 


04 


PSTFNCTN 


132(084) 




♦PSTFRBLK 


133(085) 


30 


♦PSTFRSPC 


132(084) 


02 


♦PSTGBSPC 


132(084) 


03 


♦PSTGETNX 


132(084) 


OB 


♦PSTGTDS 


133(085) 


04 


♦PSTGTRAP 


132(084) 


04 


♦PSTGTSPC 


132(084) 


01 


PSTGVPL 


232(0E8) 




PSTGVWKL 


232(0E8) 




♦PSTHISMR 


464 (IDO) 


10 


♦PSTINLD 


133(085) 


34 


♦PSTINTNT 


68(044) 


40 


♦PSTIOERR 


133(085) 


08 


PSTIQPRM 


72(048) 
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Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


Code (Hex) 


♦PSTIWAIT 


254(0FE) 


80 


PSTLIPRM 


484(lEa) 




♦PSTLODU 


464(1D0) 


40 


♦PSTLODUH 


464 (IDO) 


20 


PSTLOGQ 


436(1B4) 




PSTLOGWA 


432(1B0) 




PSTMI 


76(040 




PSTMROCO 


177 (OBI) 




♦PSTMSPUT 


132(084) 


OE 


♦PSTNOERR 


176 (OBO) 


40 


PSTNORO 


564(234) 




♦PSTNOSPC 


133(085) 


OC 


♦PSTNOTFD 


133(085) 


14 


♦PSTNPLSP 


133(085) 


IC 


PSTNUMRO 


252(0FC) 




PSTNUMWT 


253 (OFD) 




♦PSTNWBLK 


133(085) 


18 


♦PSTOCALL 


132(084) 


04 


♦PSTOCBAD 


132(084) 


80 


♦PSTOCCLS 


132(P84) 


00 


♦PSTOCDCB 


132(084) 


10 


♦PSTOCDMB 


132(084) 


01 


♦PSTOCDSG 


132(084) 


40 


♦PSTOCLD 


132(084) 


20 


♦PSTOCOPN 


132(084) 


08 


♦PSTOCPCB 


132(084) 


02 


PSTOFFST 


134(086) 




♦PSTOLTW 


68(044) 


04 


PSTPCPGM 


448(1C0) 




PSTPCPSB 


456(1C8) 




PSTPCTl 


464(1D0) 




PSTPCT2 


465(1D1) 




♦PSTPGUSR 


132(084) 


07 


♦PSTPIPIU 


133(085) 


80 


♦PSTPISIU 


133(085) 


40 


♦PSTPLI 


465(1D1) 


01 


PSTPLIPR 


556(22C) 




PSTPOSEL 


176(0B0) 




PSTPREAD 


00(00) 




PSTPREAR 


168(0A8) 




♦PSTPRVWT 


68(044) 


08 


PSTPSB 


88(058) 




♦PSTPUTKY 


132(084) 


OD 


♦PSTQDEQ 


132(084) 


08 


♦PSTQENQ 


132(084) 


08 


♦PSTQLEO 


570(238) 


00 


PSTQLEV 


570(238) 




♦PSTQLEXC 


570(238) 


08 


♦PSTQLUPD 


570(238) 


04 


♦PSTQPUR 


132(084) 


OC 


♦PSTQRBDC 


133(085) 


08 


♦PSTQRDDL 


133(085) 


04 


♦PSTQRNSE 


133(085) 


10 


♦PSTQROOP 


133(085) 


02 


♦PSTQRWR 


133(085) 


01 


♦PSTQVER 


132(084) 


04 


PSTRBAL 


202(0CA) 




♦PSTRDERR 


133(085) 


08 


PSTRETRE 


220 (ODC) 




PSTRPSTA 


578(240) 




PSTRRDF 


570(238) 




PSTRRDL 


578(240) 
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Field/Flag 


Offset 


Flag 


Naine 


Dec (Hex) 


Code (Hex) 


PSTRTCDE 


133(085) 




♦PSTSABND 


72(048) 


20 


PSTSAVRE 


180(0B4) 




♦PSTSCALL 


68(044) 


80 


PSTSCDAD 


68(044) 




♦PSTSCHED 


68(044) 


10 


PSTSDATA 


202 (OCA) 




PSTSEG 


84(054) 




PSTSEGL 


80(050) 




PSTSPL 


208 (ODO) 




♦PSTSTLBG 


132(084) 


OC 


♦PSTSTLEQ 


132(084) 


09 


PSTSUBNJM 


172 (OAC) 




PSTSUIN 


164(0A4) 




PSTSVl 


592(250) 




PSTSV2 


664(298) 




PSTSV3 


736 (2E0) 




PSTSVa 


808(328) 




PSTSV5 


880(370) 




PSTSV6 


952(3B8) 




PSTSV7 


1024(400) 




PSTSWI 


174 (OAE) 




PSTSWKAR 


180(0B4) 




PSTSWKL 


202(0CA) 




♦PSTTABND 


72(048) 


10 


PSTTSKID 


256(100) 




♦PSTUDR 


464(1D0) 


04 


♦PSTULU 


464(1D0) 


02 


PSTUSER 


76(040 




♦PSTUSM 


464(1D0) 


01 


♦PSTUST 


464 (IDO) 


08 


PSTVLSR 


246 (0F6) 




PSTVSL 


202 (OCA) 




♦PSTWRITE 


132(084) 


08 


PSTWRKDl 


312(138) 




PSTWRKD2 


316 (13C) 




PSTWRKD3 


320(140) 




PSTWRKD4 


324(144) 




PSTWRKD5 


328(148) 




PSTWRKD6 


332(14C) 




PSTWRKD7 


336(150) 




PSTWRKTl 


292(124) 




PSTWRKT2 


296(128) 




PSTWRKT3 


300(120 




PSTWRKT4 


304C130) 




PSTWRKT5 


308(134) 




PSTWRKl 


276(114) 




PSTWRKl 


436(1B4) 




PSTWRK2 


280(118) 




PSTWRK3 


284(110 




PSTWRK4 


288(120) 




♦PSTWROSI 


133(085) 


20 


♦PSTXCONjyi 


465 (IDl) 


80 


♦PSTXMDLT 


132(084) 


AO 


♦PSTXMISR 


132(084) 


A2 


♦PSTXMRPL 


132(084) 


Al 


♦PSTXJyiUNL 


132(084) 


A3 


♦PSTXPRTM 


465 (IDl) 


40 


PSTXPSVl 


260(104) 




PSTXPSV2 


264(108) 




PSTXPSV3 


268(100 





\i 
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RECORD LAYOUT - PST 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



0(000) 
4(004) 



(008) 4 

12(000 4 

16(010) 4 

20(014) 4 

24(018) 4 

28(010 4 

32(020) 4 

36(024) 4 

40(028) 4 

44(020 4 

48(030) 4 

52(034) 4 

56(038) 4 

60(030 4 

64(040) 4 
♦♦♦USER CALL 

68(044) 1 



PSTPREAD 
PSTDLIWO 

PSTDLIWl 

PSTDLIW2 

PSTDLIW3 

PSTDLIW4 

PSTDLIW5 

PSTDLIW6 

PSTDLIW7 

PSTDLIW8 

PSTDLIW9 

PSTDLIWA 

PSTDLIWB 

PSTDLIWC 

PSTDLIWD 

PSTDLIWE 

PSTDLIWF 

PROCESSING SECTION^^^ 

PSTCODEl 
PSTSCALL 80 
PSTINTNT 40 

PSTSCHED 10 
PSTPRVWT 08 



PSTOLTW 



04 



68(044) 
72(048) 

72(048) 
76(040 



4 
4 



PSTSCDAD 

PSTABIND 
PSTERMSP 
PSTSABND 
PSTTABND 

PSTIQPRM 



PSTMI 



80 
20 
10 



Address of this PST prefix 

Action modules work area HD 
unload (DLZURGUO) return 
address for retrieve 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 

Action modules work area 



PST for system call 

Cannot schedule, intent not 

satisfied 

OK to complete scheduling 

Logger private wait indicator 

Another task waiting for 
resource owned by this task. 
Note: If PSTINTNT and 
PSTSCHED are both set, DL/I 
backout is in control. 

Address of SCD 

Task/system ABEND indicator 
PUT error message indicator 
System ABEND indicator bit 
Task ABEND indicator bit 

Address of caller's parameter 
list 

Return segment indicator 
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Offset Field/Flag 

Dec (Hex) Xienqth Name 



Flag 
Code (Hex) 



Meaning 



76(040 
80(050) 
84(054) 
88(058) 



PSTUSER 
PSTSEGL 
PSTSEG 
PSTPSB 



Address of user's I/O area 
Retrieved segment length 
Retrieved segment address 
PDIR entry address 



♦♦♦USER TASK STATISTICS^^^ 



92(050 

92(050 

96(060) 

100(064) 

104(068) 

108(060 

112(070) 

116(074) 

120(078) 

124(070 



PSTACCT 

PSTDGU 

PSTDGN 

PSTDGNP 

PSTDGHU 

PSTDGHN 

PSTDGHNP 

PSTDISRT 

PSTDDLET 

PSTDREPL 



Number of 
Number of 
Number of 
Number of 
Number of 
Number of 
Number of 
Number of 
Number of 



GU calls issued 
GN calls issued 
GNP calls issued 
GHU calls issued 
GHN calls issued 
GHNP calls issued 
ISRT calls issued 
DLET calls issued 
REPL calls issued 



♦♦♦ACTION MODUI^ES SECTION^^^ 
128(080) 4 PSTDBPCB 
I 13 2(084) 1 PSTFNCTN 

♦♦♦EQUATES FOR BUFFER HANDLER FUNCTION CODES^^^ 



Address of current PCB 
Function codes 



PSTBKLCT 
PSTBYLCT 



01 
02 



PSTGBSPC 


03 


PSTFBSPC 


04 


PSTBFJyiPT 


04 


PSTBFALT 


05 



PSTBYALT 


06 


PSTPGUSR 


07 


PSTWRITE 


08 


PSTSTLEQ 


09 


PSTERASE 


OA 



Locate relative block number 

If HD, locate relative byte 

number. If HISAM or HIDAM 

INDEX y read a record by RBA 

from a KSDS. If HISAM, read 

a record by RBA from an ESDS. 

Get buffer space 

Free buffer space 

Mark buffers enpty 

If HDr mark a buffer 

containing data altered. If 

HISAM or HIDAM INDEX, write a 

record by RBA to a KSDS. If 

HISAM r write a record by RBA 

to an ESDS 

Locate a relative byte number 

and mark buffer altered 

Purge all buffers altered by 

a task 

Write a new record to HISAM 

ESDS 

Read a record by key from a 

KSDS 

Erase a record in a KSDS 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



PSTGETNX 


OB 


PSTSTLBG 


OC 


PSTPOTKY 


OD 


PSTMSPUT 


OE 



Read the next record in a 

KSDS 

Read the record containing 

the first root in a KSDS 

Insert a record by key into a 

KSDS 

Insert record (s) sequentially 

into a KSDS 



♦♦♦EQUATES FOR OPEN/CLOSE FUNCTION CODES^^+ 



PSTOCDMB 01 Close DMB. Address of DMB in 

R2 
PSTOCPCB 02 Close PCB. Address of PCB in 

R2 
PSTOCALL OU Close all DMBs 

PSTOCCLS 00 Close call. Bit 4=0 

PSTOCOPN 08 Open call. Bit 4=1 

PSTOCDCB 10 Open/close the DMB in 

PSTDCBNM. DSG address in 

PSTDSGA 
PSTOCLD 20 Open for load 

PSTOCDSG 40 Open the DSG in PSTDSGA 

PSTOCBAD 80 Open unsuccessful 



♦♦♦EQUATES FOR SPACE MANAGEMENT FUNCTION CODES^^^ 



80 Backout in control 

PSTGTSPC 01 Get space for segment. R5 

contains pointer to PSDB 
PSTFRSPC 02 Free space for segment. R5 

contains pointer to PSDB 
PSTBTMPF 03 Do bit map update 

PSTGTRAP 04 Get space close to RAP in 

PSTBYTNM 



♦♦♦EQUATES FOR INDEX MAINTENANCE FUNCTION CODES^^^ 



PSTXMDLT AO Perform index maintenance for 

segment to be deleted 
PSTXMRPL Al Perform index maintenance for 

segment to be replaced 
PSTXMISR A2 Perform index maintenance for 

segment to be inserted 
PSTXMUNL A3 Perform index maintenance for 

segment to be unloaded 



PSTQENQ 


00 


PSTQVER 


04 


PSTQDEQ 


08 


PSTQPUR 


OC 



♦♦♦EQUATES FOR PROGRAM ISOLATION FUNCTION CODES^^^ 

Enqueue (Queueing facility) 
Verify (Queueing facility) 
Dequeue (Queueing facility) 
Purge (Queueing facility) 

133(085) 1 PSTRTCDE Return codes 

♦♦♦EQUATES FOR BUFFER HANDLER RETURN CODES^^^ 

PSTCLOK 00 No error occurred 

PSTGTDS 04 RBN is beyond the end of the 

data set 
PSTIOERR 08 I/O error 
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Offset Field/Flag Flag 

Pec(Hex) Length Name Code (Hex) Meaning 



PSTRDERR 


08 


PSTNOSPC 


OC 


PSTBDCAL 


10 


PSTNOTFD 


lU 


PSTNWBLK 


18 


PSTNPLSP 


IC 


PSTWROSI 


20 


PSTENDDA 


24 


PSTBYEND 


28 


PSTEOD 


2C 


PSTINLD 


34 



♦♦♦SPACE MANAGEMENT RETURN CODES^^^ 

PSTFRBLK 30 



PSTBTMPF 03 
♦♦♦EQUATES FOR PROGRAM ISOLATION RETURN CODES^^^ 



Permanent read error 

No space for adds 

Illegal call 

No record found (retrieve by 

key) 

New block was created in the 

buffer pool 

Insufficient space in the 

buffer pool 

Size of requested buffer 

exceeds the size of buffers 

in any subpool 

End of data set. No record 

returned 

Key or RBA higher than the 

highest key or RBA in the 

data set 

End of data set reached on a 

request issued by open 

Invalid request during data 

set loading 



Block not used due to 

distributed free space 

parameter 

Bit map update required 



PSTQRWR 


01 


PSTQROOP 


02 


PSTQRDDL 


04 


PSTQRBDC 


08 


PSTQRNSE 


10 


P5TPISIU 


40 


PSTPIPIU 


80 



134(086) 


2 


136(088) 


4 


140(080 


4 


144(090) 


2 


146(092) 


1 


147(093) 


1 


148(094) 


4 



152(098) 
156(090 



PSTOFFST 

PSTDSGA 

PSTBLKNM 
PSTDMBNM 
PSTACBNM 

PSTBYTNM 

PSTDATA 
PSTBUFFA 



Wait was required 
Other owners present 
Terminated due to deadlock 
Terminated due to bad call 
Terminated. Insufficient 
storage 

Secondary index updated 
Primary index updated 

Offset to PSTDATA from start 
of buffer 

Address of DSG portion of the 
JCB 

Relative block number 

DMB number 

ACB number 

♦♦Reserved^^ 

RBA or relative record 
number. High order byte 
contains X'80* if request is 
for HISAM ESDS 

Address of requested data 

Address of buffer prefix 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

***BUFFER HANDLER AND SPACE MANAGEMENT SECTION*** 



160(0A0) 
164 (OAa) 
168(0A8) 



PSTBFUSE 



PSTSUIN 



PSTPREAR 



17 2 (OAC) 


2 


PSTSUBNM 




174 (OAE) 


2 


PSTSWI 


08 
04 
80 
02 



176 (OBO) 

177 (OBI) 

178(0B2) 
180(0B4) 



PSTPOSEL 

PSTNOERR 
PSTMROCO 



FF 



40 



2 
40 



PSTSAVRE 



Address of the buffer prefix 
to be used 

Address of the subpool 
information table to be used 

Beginning address of the 
buffer prefix area for the 
subpool information table 
used 

Subpool number used during 
this call 

Work space 

HD write in progress 

CI in overflow area full 

HISAM ESDS is being processed 

Request made to the buffer 

handler by space management 

Purge buffer request 

completed 

Count for position of use 
chain element 
No error message 

Number of the row/column in 
the interlock detection 
matrix currently used by this 
task 

**Reserved** 

work area used by buffer 
handler when processing a 
request 



***THIS AREA IS USED BY DLZDCIOO FOR SHOWCAT AND GETVCE FOR FBA 
SUPPORT*** 



180 (0B4) 



202 (OCA) 



40 



246 (0F6) 

208 (ODO) 
232(0E8) 



PSTSWKAR 

PSTSDATA 
PSTRBAL 
PSTVSL 
PSTSWKL 

PSTVLSR 

PSTSPL 
PSTGVPL 



SHOWCAT work area used by 
Space Management DLZGGSPO and 
Open/Close DLZDLOCO 

Location of needed data 

returned by SHOWCAT 

RBA data length (equated to 

4) 

Volume serial number length 

(equated to 6) 

Length of SHOWCAT work area 

(equated to 64) 

Volume serial number save 
area 

SHOWCAT parameter list 

GETVCE parameter list 
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Offset Field/Flag Flag 

Dec (Hex) Length Name _ Code (Hex) Meaning 



PSTGVWKL 



Length of GETVCE work area 
(equated to 52) 



***THE FOLLOWING FIELDS ARE USED BY DL/I OPEN/CLOSE (DLZDLOCO) AND SPACE 
MANAGEMENT (DLZDHDSO) FOR VSAM CATALOG PARAMETER LIST WHEN PROCESSING AN 
OUT-OF- SPACE CONDITION FOR HI DAM DATA BASE*** 



180 (0B4) 



40 



220 (ODC) 



32 



PSTCTGPL 

PSTCPLN 
PSTCTGNM 

PSTRETRE 



Area used as the VSAM catalog 

parameter list (CTGPL) by 

DLZGGSPO and DLZDLOCO to do 

locate 

Length of CTGPL block 

(equated to 40) 

Number of CTGFL entries 

(equated to %} 

Buffer handler subroutine 
linkage register (R14) save 
area when procssing a request 



24 4 (0F4) 


8 


PSTCTGWK 


244 (0F4) 


3 


PSTCTGLl 


247 (0F7) 


1 


PSTCTGL2 


24 8 (0F8) 


4 


PSTCTGRT 
PSTCWKLN 



***THE FOLLOWING FIELDS ARE USED BY OPEN/CLOSE (DLZDLOCO) AND SPACE 
MANAGEMENT (DLZDHDSO) FOR VSAM FIELD PARAMETER LIST WHEN PROCESSING AN 
OUT-OF-SPACE CONDITION FOR HIDAM DATA BASE*** 

220 (ODC) 24 PSTCTGFL Area used as the VSAM field 

parameter list (CTGFL) by 
DLZGGSPO and DLZDLOCO to do 
locate 

VSAM qatalog work area 

Catalog work area length 1 

Catalog work area length 2 

VSAM catalog return area for 

HI-RBA 

Length of catalog work area 

(equated to 8) 

♦♦♦BUFFER. HANDLER STATISTICS*** 

Ntimber of blocks read on this 
call 

Number of writes issued on 
this call 

Buffer handler switch 
80 IWAIT issued during this call 

**Reserved** 

Hashed task ID. High-order 
byte, binary date. Low- order 
three bytes, assigned in 
ascending sequence 

***THE FOLLOWING FIELDS ARE USED AS SAVE AREAS SO THAT THE DMB ECB CAN 
BE POSTED IF THE TASK IS CANCELED WHILE WAITING FOR I/O COMPLETION*** 



252 (OFC) 


1 


PSTNUMRO 


253 (OFD) 


1 


PSTNUMWT 


254 (OFE) 


1 


PSTGLRWT 
PSTIWAIT 


255 (OFF) 


1 




256(100) 


4 


PSTTSKID 



260^04) 



PSTXPSVl 



User VSAM save area address 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



26iK108) 


4 


PSTXPSV2 


268(100 


4 


PSTXPSV3 


272(110) 


4 




♦**PST WORK AREAS*** 


276(114) 


4 


PSTWRKl ' 


280(118) 


4 


PSTWRK2 


284(110) 


4 


PSTWRK3 


288(120) 


4 


PSTWRK4 


292(124) 


4 


PSTWRKTl 


296(128) 


4 


PSTWRKT2 


300(120) 


4 


PSTWRKT3 


304(130) 


4 


PSTWRKT4 


308(134) 


4 


PSTWRKT5 



EXOPAD return address 

EXOPAD parameter list address 

**Reserved** 

PSTWRKn are work words for 
buffer handler (DLZDBHOO) 
and data base logger.. 

PSTWRKn is work space 
preserved across calls 
to the buffer handler. 



***THE HIGH-ORDER BYTE OF PSTWRKT4 IS USED TO PASS THE FOLLOWING 
FUNCTION CODES TO INDEX MAINTENANCE*** 



04 
03 
02 
01 



PSTWRKDl 
PSTWRKD2 
PSTWRKD3 
PSTWRKD4 
PSTWRKD5 
PSTWRKD6 
PSTWRKD7 
PSTCURWA 
PSTDLTWA 

PSTDLROM 

***DATA BASE LOG SECTION*** 
43 2(1B0) 4 PSTLOGWA 



312(138) 


4 


316(130) 


4 


320(140) 


4 


324(144) 


4 


328(148) 


4 


332(140) 


4 


336(150) 


4 


340(154) 


4 


344(158) 


4 


348(150) 


8 



Reinsert index 
Secondary indexes only 
Primary indexes only 
Both primary and secondary 
indexes 

PSTWRKDn is work space for 

use by DELETE/REPLACE, 

RETRIEVE, and LOAD/INSERT. 



Current delete work area 

First delete work area 
address 

Save and maintenance work 
area for retrieve 



Work area address for log 0/P 
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Offset Field/Flag Flag 

Dec(Hex) Length Naitie Code (Hex) Meanincy 



436 (IBt*) 



PSTLOGQ. 



♦♦♦DATA BASE LOG USE OF PSTWRKl^^^ 



PSTWRKl 



♦♦♦DATA BASE LOG FUNCTION CODES^^+ 



DBLNDXC 


80 


DBLCMC 


00 


DBLNTCR 


70 


DBLLGDLT 


60 


DBLPHYI 


40 


DBLPHYD 


20 


DBLPHYR 


10 


DBLOOPS 


OA 


DBLLASTC 


08 


DBLFSEl 


00 


DBLFSE2 


04 


DBLPHYRO 


02 


DBLNEWBL 


01 



Address of reuse queue QCB in 
pool 



Physical SDB address. If new 
block, low-order 2 bytes are 
call count. High^order byte 
used for function code 



Index maintenance call 

Bits 1*3 = 0, chain 

maintenance call 

Counter maintenance 

Delete byte maintenance 

Insert 

Physical delete 

Replace 

No data. End of user call 

Last change for user call 

Bit 5=0, one FSE (if bits 1 

or 2 on) 

Two FSEs (if bits 1 or 2 on) 

Qld copy of a replace 

New block log call 



♦♦♦DATA BASE LOG USE OF PSTWRK2 - PSTWRK4^^^ 

chain maintenance ^ Old copy of chain pointer {4 bytes) 
Insert/Delete - Offset and new FSEs (6 or 12 bytes) 



440 (1B8) 



8 



♦♦ ♦PARTITION/TASK INFORMATION^^ ♦ 
448 (ICO) 8 PSTPCPGM 



456 (1C8) 8 
464 (IDO) 1 



PSTPCPSB 



PSTPCTl 




PSTBATCH 


80 


PSTLODU 


40 


PSTLODUH 


20 


PSTHISMR 


10 


PSTUST 


08 


PSTUDR 


04 


PSTULU 


02 


PSTUSM 


01 



465 (IDl) 



PSTPCT2 



PSTXCONM 
PSTXPRTM 
PSTCHKP 

PSTCALI 



80 
40 
04 

02 



♦ ♦Reserved ♦♦ 



Application program name. If 
batch UDR, ULR,or ULU; DBD 
name 

PSB name 

Partition/task option 

PST is in batch partition 

Load utility 

Load HDAM DB 

HISAM data base recovery in 

process 

Statistics utility 

Data base recovery utility 

Data base load/unload utility 

Security maintenance utility 

Program options /in format ion 
overlaid on every call to the 
batch program request handler 
Exclude console message 
Exclude printer message 
User checkpoint call 
successful 
User's call list is implicit 
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Offset Field/Flag Flag 

Dec(Hex) Length Name CQde(Hex) Meaning 



466 (1D2) 
466 (1D2) 
U67(1D3) 
468(104) 

475 (IDB) 



1 
1 
1 
7 



PSTPLI 
PSTERCOD 
PSTERCDl 
PSTERCD2 
PSTERDTl 

PSTCNVB 

PSTERDT2 



01 



483(1E3) 


1 


PSTERIND 
PSTDUMPI 


80 






PSTCANLI 


40 


484(1E4) 


72 


PSTLIPRM 




556(22C) 


8 


PSTPLI PR 




564(234) 


6 


PSTNORO 




570(238) 





PSTQLEV 
PSTQLEO 
PSTQLUPD 
PSTQLEXC 


00 
04 
08 


570(238) 


4 


PSTRRDF 




574 (23C) 


4 


PSTRRDL 




578(240) 


4 


PSTRPSTA 




590(244) 


12 






♦♦♦REGISTER SAVE 


AREA+++ 




592(250) 


72 


PSTSVl 




664(298) 


72 


PSTSV2 




736 (2E0) 


72 


PSTSV3 




808(328) 


72 


PSTSV4 




880(370) 


72 


PSTSV5 




952(3B8) 


72 


PSTSV6 




1024(400) 


72 


PSTSV7 





User program is PL/I 

Error message codes 

Error message code byte one 

Error message code byte two 

Error message data for ACE or 
DTF name 

Doubleword for HD randomizing 
module 

Variable error message data 

Error routine indicator 
Issue dump after error 
message put 

Issue cancel after error 
message put 

Area to build user parameter 
list and register save area 
for MPS start and stop calls 

PL/I region STXIT processor 

Number of owned resources 

Queue request level 
Read only level 
Update level 
Exclusive level 

Pointer to first RRD 

pointer to last RRD 

Remote PST (RPST) address. 
Contains if not scheduled 
to a remote PSB. 

♦♦Reserved^^ 



PSTSVl through PSTSV7 are 
seven register save areas 
required for processing 
DL/I user calls. The 
convention used in storing 
registers in these save 
areas is to begin with 
R14 and end with R12; 
that is, R14, R15, RO, Rl, 
R2, R3, R4, R5r R6 r R7, 
R8, R9, RIO, Rll, and R12. 



Licensed Material - Property of IBM 5^89 



QWA - QUEUING FACILITY WORK AREA 



DSECT Name: DLZQWA 



The QWA contains information used by the queuing facility module to 
build control blocks and. RDB queue headers • It also contains 
information used to locate the proper RDB for a particular resource ID, 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


QWACPP 


16(10) 




♦QWABCDF 


20(14) 


01 


QWAFLGl 


20(14) 




QWAFLG2 


21(15) 




QWAFLG3 


22(16) 




QWAFLG4 


23(17) 




QWAFPP 


12 (OC) 




QWAHMLT 


32(20) 




QWANCQH 


28 (IC) 




♦QWANPOF 


20(14) 


02 


QWARDBQH 


36(24) 




QWAWFD 


24(18) 
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RECORD LAYOUT • QWA 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code ( Hex ) Meaning 



0(00) 
14 (OE) 

18(12) 

22(16) 



14 
4 



23(17) 


1 


24(18) 


1 


25(19) 


1 


26 (lA) 


4 


30 (IE) 


4 


34(22) 


4 


38(26) 


4 



QWAFPP 

QWACPP 

QWAFLGl 
QWADDDF 
QWANPOF 

QWAFLG2 

QWAFLG3 

QWAFLG4 

QWAWFD 

QWANOQH 

QWAHMLT 

QWARDBQH 



01 
02 



Module ID 

First page pointer for free 
block management 

Current page pointer for free 
block management 

First flag byte 

Do deadlock detection 

New Prime owner exists. 

Second flag byte 

Third flag byte 

Fourth flag byte 

Work field 1 

Number of queue heads 

Hashing Multiplier 

RDB chain queue headers (one 
FW/ entry) 
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RDB - RESOURCE DESCRIPTOR BLOCK 



DSECT Name: 



DLZRDB 



The RDB (Resource Descriptor Block) is used to describe a resource for 
which enqueues are outstanding. In addition, it acts as an anchor for 
the chains of RRDs (Resource Request Descriptors) that describe the 
current queue requests for the resource. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Maine 


Dec (Hex) 


Code (Hex) 


RDBLEN 


24(18) 




RDBMAXL 


8(08) 




RDBNOWN 


12(0C) 




RDBPOID 


0(00) 




RDBRDBB 


U(04) 




RDBRDBF 


0(00) 




RDBRID 


16(10) 




RDBRRDF 


8(08) 




RDBRRDL 


12 (OC) 




RDBUOID 


4(0U) 





RECORD LAYOUT - RDB 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



0(00) 



RDBPOID 



0(00) 


4 


RDBRDBF 


14(04) 


1 


RDBUOID 


4(04) 


4 


RDBRDBB 


8(08) 


1 


RDBMAXL 


8(08) 


4 


RDBRRDF 


12 (OC) 


1 


RDBNOWN 


12 (OC) 


4 


RDBRRDL 


16(10) 


7 


RDBRID 


23(17) 


1 




24(18) 




RDBLEN 



Primary owner PST prefix 
number 

RDB forward chain pointer 

Update owner PST prefix 
number 

RDB backward chain pointer 

Maximum level of current 
owners 

Pointer to first RRD 

Current number of owners 

Pointer to last RRD 

Resource ID 

♦♦Reserved** 

Length of RDB 



^ 

^ 
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RIB - REMOTE INTERFACE BLOCK 



DSECT Name: DLZRIB 



This DSECT describes remote interface block fields. The RIB is used by 
DL/I for CICS/VS intersysteni corainunication (ISC) support. It defines 
I fields passed between CICS/VS and DL/I. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


♦RIBBUFAL 


18(12) 


40 


♦RIBCALL 


20(14) 


40 


RIBCHAIN 


a(OU) 




RIBDLTR 


22(16) 




RIBFCTR 


21(15) 




♦RIBFUNC 


20(14) 


80 


RIBINDEX 


16(10) 




RIBIOAWK 


8(08) 




RIBISC 


18(12) 




RIBISCI 


20(14) 




RIBISCO 


19(13) 




RIBLEN 


24(18) 




♦RIBLNKA 


20(14) 


20 


♦RIBLNKSH 


20(14) 


10 


RIBPCBAL 


0(00) 




♦RIBPCBM 


18(12) 


80 


RIBRSET 


23(17) 




♦RIESYNC 


19(13) 


80 


RIEUPPER 


12(0C) 
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RECORD LAYOUT - RIB 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



0(00) 



RIB 



0(00) 


4 


RIBPCBAL 




4(04) 


4 


RIBCHAIN 




8(08) 


4 


RIBIOAWK 




12 (OC) 


4 


RIBUPPER 




16(10) 


2 


RIBINDEX 




18(12) 


1 


RIBISC 








RIBPCBM 


80 






RIBBUFAL 


40 


19(13) 


1 


RIBISCO 








RIBSYNC 


80 


20(14) 


1 


RIBISCI 








RIBFUNC 


80 






RIBCALL 


40 






RIBLNKNA 


20 






RIBLNKSH 


10 


21(15) 


1 


RIBFCTR 




22(16) 


1 


RIBDLTR 




23(17) 





RIBRSET 




23(17) 


1 


Unnamed 




24(18) 




RIBLEN 





Start of RIB DSECT, This 
control block follows 
immediately after the RPST, 

Local PCB address list,. 

Remote PSB storage chain. 

Local PSB I/O work area. 

Highest address of caller 
partition. 

PCB index number. 

ISC scheduling duration 

flags: 

PCBM scheduling call issued. 

RIBIOAWK buffer allocated. 

ISC outbound flags: 
Synchronization point issued. 

ISC inbound flags: 

Function string invalid. 

User call parameter list 

invalid. 

Link does not exist. 

Link is out of service. 

ISC response code. 

Additional response 
information. 

Length of function dependent 
flags. 

♦♦Reserved** 

Length of RIB. 
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RPCB - REMOTE PCB 



DSECT Name: DLZRPCB 



This DSECT describes remote PCB fields. The RPCB is an extension of PCB 
local storage used by DL/I for CICS/VS intersystem coiranunication (ISC) 
support. RPCBs exist only while a task is scheduled for a data base 
that is located on some other system. In this case, the address of the 
RPCB is located four bytes ahead of the PCB. 



RECORD LAYOUT - RPCB 



Offset 




Field/Fla< 


Dec (Hex) 


Length 


Name 


0(00) 





RPCB 


0(00) 


4 


RPCBMIOS 


4(04) 


4 


RPCBSEGL 


8(08) 


1 


RPCBFLAG 
RPCBPATH 


9(09) 


3 


Unnamed 


12 (OC) 




RPCBLEN 



Code (Hex) Meaning 



80 



Start of RPCB DSECT. 

Maximum PCB I/O area si?:e. 

Length of last retrieve. 

Flag byte: 

Previous get hold path call. 

♦♦Reserved** 

Length of RPCB 
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RPDIR - REMOTE PSB DIRECTORY 



DSECT Name: DLZRPDIR 



This DSECT describes remote PSB directory fields. The RPDIR is an 
extension of the PDIR. It contains PSB information used by DL/I for 
CICS/VS intersystein coitiiminication (ISC) support. 



RECORD LAYOUT - RPDIR 

Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

start of RPDIR DSECT 

System name on which remote 
PSB is defined. 

Name of PSB to use on remote 
system. 



0(00) 





RPDIR 


0(00) 


4 


RPDIRSYS 


4(04) 


8 


RPDIRPSB 


12 (OC) 




RPDIRLEN 



Length of RPDIR 
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RPST - REMOTE PST 



DSECT Name: DLZRPST 



This DSECT describes remote PST fields. The RPST is an extension of 
task local storage used by DLZODP for CICS/VS intersystem communication 
(ISC) support. 



RECORD LAYOUT - RPST 



Offset 




Field/Fl. 


Dec (Hex) 


Lenqth 


Name 


0(00) 





RPST 


0(00) 


4 


RPSTISCl 


a(oa) 


4 


RPSTISC2 


8(08) 


4 


RPSTISC3 


12 (OC) 


4 


RPSTISC4 


16(10) 


4 


RPSTISC5 


20(14) 


4 


RPSTISC6 


24(18) 


1 


RPSTATUS 


25(19) 


3 


RPSTACTA 


28 (IC) 




RPSTLEN 



Code (Hex) Meaning 



Start of RPST DSECT. 

ISC parameter 1. 

ISC parameter 2, 

ISC parameter 3. 

ISC parameter 4. 

ISC parameter 5. 

ISC parameter 6. 

Flag byte. 

Program's ACT entry address. 

Length of RPST. 
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RRD - RESOURCE REQUEST DESCRIPTOR 



DSECT Name: DLZRRD 



The RRD (Resource Request Descriptor) is used to maintain a record of 
all the requests and their current status by one task for a particular 
resource. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


Code (Hex) 


RRDFLAG 


16(10) 




RRDLEN 


18(24) 




RRDMAXL 


12 (OC) 




RRDNQEX 


8(08) 




RRDNQRO 


0(00) 




RRDNQUP 


4(04) 




♦RRDOWNF 


16(10) 


01 


♦RRDPOWNF 


16(10) 


04 


RRDPSTP 


16(10) 




RRDPSTQB 


4(04) 




RRDPSTQF 


0(00) 




RRDRDBP 


20(14) 




RRDRDBQB 


12(0C) 




RRDRDBQF 


8(08) 




♦RRDWAITF 


16(10) 


02 
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RECORD LAYOUT 



RRD 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) 



Meaning 



0(00) 
0(00) 



RRDNQRO 



RRDPSTQF 



4(04) 


1 


RRDNQUP 




4(04) 


4 


RRDPSTQB 




8(08) 


1 


RRDNQEX 




8(08) 


4 


RRDRDBQF 




12 (OC) 


1 


RRDMAXL 




12 (OC) 


4 


RRDRDBQB 




16(10) 


1 


RRDFLAG 








RRDOWNF 


01 






RRDWAITF 


02 






RRDPOWNF 


04 


16(10) 


4 


RRDRDBP 




20(14) 


4 


RRDPSTP 




24(18) 


4 


RRDLEN 





Number of read-only 
ownerships for task 

PST queue forward pointer; 
next RRD for task 

Number of exclusive (update) 
ownerships for task 

PST queue backward pointer; 
prior RRD for task 

Number of exclusive 
ownerships for task 

RDB queue forward pointer; 
next RRD for resource 

Current maximum ownership 
level for resource by task 

RDB queue backward pointer ; 
prior RRD for resource 

Flag byte 

PST owns resource 

PST is waiting for resource 

PST is prime owner of 

resource 

RDB address for resource 

PST address for task 

Length of RRD 
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SBIF - SUBPCOL INFORMATION TABLE 



DSECT Name: SUBINFTA 



The subpool inforniation table is described as part of the general 
structure and description of DL/I buffer pool control blocks. There is 
one subpool information table for each subpool allocated. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


Code (Hex) 


SUBBFHD 


3(03) 




SUEBFNO 


2(02) 




SUBBFSIZ 


44(20) 




SUBDMBCT 


45(20) 




♦SUBFRSV 


3(03) 


80 


SUBLEN 


46 (2E) 




SUBNQFI 


0(00) 




SUBNQLA 


1(01) 




SUBUCHAI 


8(oa) 




SUBUCPRE 


4(04) 




SUBUCSUF 


40(28) 
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RECORD LAYOUT • SBIF 



Offsetr Field/Flag Flag 

Dec, (Hex) Length Name Code (Hex) Meaning 



0(00) 


1 


SUBNQFI 


1(01) 


1 


SUBNQLA 


2(02) 


1 


SUBBFNO 


3(03) 


1 


SUBBFHD 
SUBFRSV 


4(04) 


4 


SUBUCPRE 


8(08) 


32 


SUBUCHAI 


40(28) 


4 


SUBUCSUF 


44 (2C) 


1 


SUBBFSIZ 



80 



PST prefix number of first 
task in chain for enqueue 
subpool 

PST prefix number of last 
task in chain for enqueue 
subpool 

Number of buffers in this 
subpool 

HDBFR indicator 

DMB assigned to this subpool 

by HDBFR parameter 

Accumulated number of buffers 
in preceeding subpool s 

Buffer use chain 

(Not used in DL/I DOS/VS) 



Size of the buffers in this 


subpool: 






X«01« = 


512 bytes 


X'02* = 


1024 


bytes 


X"03" = 


1536 


bytes 


X"04- = 


2048 


bytes 


X^OS" = 


2560 


bytes 


x-oe" = 


3072 


bytes 


X'O?" = 


3584 


bytes 


X'08" = 


4096 


bytes 



45 (2D) 1 SUBDMBCT 
46 (2E) SUBLEN 



Number of DMBs assigned 

Length of subpool information 
table 



Licensed Material • Property of IBM 5-101 



SCD - SYSTEJyi CONTENTS DIRECTORY 



DSECT Name: DLZSCD 



The DL/I SCD (System Contents Directory) is produced during DL/I system 
definition for online CICS/VS-DX/I. The SCD is preassembled as part of 
the DL/I nucleus in the batch DL/I system. The SCD contains major entry 
pointers for all DL/I facilities. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (13 ex) 


CPYRITE 


0(00) 




SCD 


96(60) 




SCDABEND 


200(C8) 




SCDAESAV 


288(120) 




SCDACTBA 


264(108) 




SCDASE 


196(04) 




SCDATSKC 


106(6A) 




SCDBFPL 


216(D8) 




SCDBKWRK 


352(160) 




SCDCDTA 


268(100 




SCDCMTCT 


384(180) 




♦SCDCMTI 


284(110) 


40 


SCDCMXT 


104(68) 




SCDCOMRG 


124(70) 




SCDCPYIO 


180 (B4) 




SCDCSABA 


276(114) 




SCDCWRK 


336(150) 




SCDCWRKL 


340(154) 




SCDDATE 


98(62) 




♦SCDDBASL 


346 (15A) 


02 


SCDDBFA 


217 (D9) 




SCDDBFPL 


216 (D8) 




SCDDBLAS 


324(144) 




♦SCDDELCJ 


346(15A) 


20 


SCDDBLCL 


320(140) 




♦SCDDBLD2 


346 (15A) 


10 


SCDDBLFW 


316(130) 




SCDDBMPS 


304(130) 




SCDDBLNT 


148(94) 




♦SCDDBLO 


346 (15A) 


80 


SCDDBLOP 


346 (ISA) 




♦SCDDBLOR 


346 (ISA) 


40 


♦SCDDBLSP 


346 (ISA) 


08 


SCDDELSV 


328(148) 




♦SCDDBLTD 


346 (ISA) 


20 


SCDDBLWO 


332(140) 




SCDDDBHO 


136(88) 




♦SCDDELT 


284(110 


20 


SCDDHDSO 


160(A0) 




♦SCDDLARE 


144(90) 


28 


SCDDLICL 


168(A8) 




SCDDLICT 


144(90) 




SCDDLIDL 


232(E8) 




SCDDLIDM 


228(E4) 




SCDDLIDN 


234 (EA) 





^ 
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Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


SCDDLIDR 


152(98) 




SCDDLIIN 


156(9C) 




SCDDLIM 


97(61) 




SCDBLIPL 


22U(E0) 




SCDDLIPN 


226 (E2) 




SCDDLIPS 


220 (DC) 




SCDDLIRE 


1U0(8C) 




SCDDLIS 


272(110) 




SCDDLIUP 


276(114) 




SCDDLIV 


96(60) 




SCDDLOCT 


380(170 




SCDDSEHO 


172 (AC) 




SCDDXMTO 


164(Aa) 




SCDERRMS 


192(C0) 




SCDEXTBA 


300(120 




SCDFLPC 


2a4(F4) 




♦SCDFLSAV 


244(F4) 


40 


♦SCDHLRE 


284(110 


08 


SCDIWAIT 


188 (BC) 




♦SCDLIPLI 


244(F4) 


80 


SCDLNGTH 


392(188) 




SCDLOCOU 


3U8(15C) 




SCDLOWER 


108(60 




SCDLCWID 


120(78) 




SCDLSTAD 


292(124) 




SCDMPCPT 


296(128) 




♦SCDMTI 


284(110 


80 


SCDMXTSK 


102(66) 




♦SCDNABND 


284(110 


01 


SCDNAVID 


116(74) 




♦SCDNDMP 


284(110 


04 


♦SCDNJNL 


284(110 


01 


♦SCDNLOGI 


284(110 


02 


SCDNTWC 


286 (HE) 




SCDPDUP 


388(184) 




♦SCDPI 


304(130) 


40 


SCDPPAB 


248 (F8) 




SCDPPAF 


244(F4) 




SCDPPFB 


256(100) 




SCDPPFF 


252(FC) 




SCDPPSTL 


240(F0) 




SCDPPSTN 


242(F2) 




SCDPPSTS 


236(EC) 




SCDPRHED 


132(84) 




SCDPSTLN 


260(104) 




♦SCDQFJRN 


172 (AC) 


08 


♦SCDQFSDC 


172 (AC) 


04 


SCDQUEFW 


176 (BO) 




SCDQUEFO 


172 (AC) 




SCCREENT 


312(138) 




♦SCDRELOD 


285(11D) 


08 


SCDREPLN 


344(158) 




*SCDRLABN 


285(11D) 


04 


♦SCDRLRST 


285(11D) 


10 


♦SCDRPSB 


304(130) 


20 


SCDSEQ 


342(156) 




SCDSIND 


284(110 




SCDSIND2 


285(11D) 




♦SCDSOPLG 


285 (IID) 


01 


SCDSPCNT 


282(11A) 




♦SCDSYACT 


285(11D) 


40 


♦SCDSYINT 


285 (IID) 


02 
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Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


Code (Hex) 


♦SCBSYSAE 


285(11D) 


80 


♦SCDSYWAT 


285{11D) 


20 


♦SCDTAMOD 


368(170) 


40 


♦SCDTBHCL 


368(170) 


02 


♦SCDTCPOS 


368(170) 


10 


♦SCDTINDX 


368(170) 


01 


SCBTKCNT 


280(118) 




SCDTKTRM 


204(CC) 




♦SCDTOLBH 


369(171) 


80 


♦SCDTPITR 


369(171) 


40 


SCDTRACE 


356(164) 




SCDTRCNM 


360(168) 




♦SCDTRETR 


368(170) 


20 


SCDTRFLl 


368(170) 




SCDTRFL2 


369(171) 




SCDTSKCR 


372(174) 




♦SCDTUSER 


368(170) 


80 


♦SCDTVSAM 


368(170) 


04 


♦SCDTWFI 


284(11C) 


08 


♦SCDUPD 


284(11C) 


10 


SCDUPPER 


112(70) 




SCDUSAVE 


244(F4) 




SCDWAIT 


262(106) 




♦SCDXECB 


304(130) 


80 



5^104 Licensed Material - Piro#erty of IBM 



RECORD LAYOUT 



SOD 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



0(00) 



96 



CPYRITE 



96(60) SCD 

♦♦♦SYSTEM CONFIGURATION SECTION^^^ 

96(60) 1 SCDDLIV 

97(61) 1 SCDDLIM 

98(62) 4 SCDDATE 

10 2(66) 2 SCDMXTSK 



104(68) 



106 (6A) 



108(60 



SCDCMXT 



SCDATSKC 



SCDLOWER 



112(70) 


4 


SCDUPPER 


116 (7U) 


4 


SCDNAVID 


120(78) 


4 


SCDLOWID 


124 (7C) 


4 


SCDCOMRG 


128(80) 


4 





♦♦♦ACTION MODULE ENTRY POINT ADDRESSES^^^ 
13 2(84) 4 SCDPRHED 



136(88) 4 

140(80 4 

144(90) 4 

14Bi94) 4 



SCCDDBHO 

SCDDLIRE 

SCDDLICT 
SCDDLARE 2B 

SCDDBLNT 



Reserved for copyright 
information 

Start of addressable SCD 



DL/I version number 

DL/I release level 

System date - Julian 

DL/I minimum task count - 
online 

DL/I current maximum task - 
online 

Active DL/I task counter 
online 

Partition lower boundary; 
address pointer to 
addressable part of the SCD 
(batch only) 

Partition upper boundary 
address 

Next available task ID 

Lowest task ID 

COMREG address 

♦♦Reserved^^ 



Entry point of ptogram 
request handler: 
Batch ^ DLZPRHBO 
Online = DLZPRHOO 

Entry point of buffer handler 
(DLZDBHOO) 

Entry point of retrieve 
(DLZDLROO) 

Entry point of call analyzer 

(DLZDLAOO) 

Offset to entry point on 

return to call analyzer 

Entry point of data base Idg 
module (DLZRDBLO) ^ entry 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



point of log initialization 
until after initialization 



152(98) 


4 


SCDDLID2 




156 (9C) 


U 


SCDDLIIN 




160 (AO) 


4 


SCDDHDSO 




164 (Aa) 


4 


SCDDXMTO 




168(A8) 


4 


SCDDLICL 




172(AC) 


4 


SCDDSEHO 




17 2 (AC) 


4 


SCDQUEFO 








SCDQFSDC 


04 






SCDQFJRN 


08 


176 (BO) 


4 


SCDQUEFW 




180 (B4) 


4 


SCDCPYIO 




184(B8) 


4 






188 (EC) 


4 


SCDIWAIT 




192(C0) 


4 


SCDERRMS 





Entry point of delete/replace 
(DLZDLDOO) 

Entry point of load/insert 
for retrieve (DLZDDLEO) 

Entry point of space 
management (DLZDHDSO) 

Entry point of index 
maintenance (DLZDXMTO) 

Entry point of open/close 
(DLZDLOCO) 

Entry point of routine to 
create work files for batch 
only (DLZDSEHO) 

Entry point of 
enqueue/dequeue module for 
program isolation - online 
only (DLZQUEFO) 
Displacement to SCD address 
field in DLZQUEFO 
Displacement to JRNAD exit 
address field in DLZQUEFO 

Enqueue/dequeue work area 

Entry point for field level 
sensitivity expansion routine 
(DLZCPYIO) 

♦♦Reserved** 

Entry point of IWAIT routine: 
Batch = DLZIWAIT 
Online = DLZOWAIT 

Entry point of error message 
routine: 

Batch = ERRORMSG 

Online = DLZERMSG 



196 (C4) 



I 200 



(C8) 



204 (CO 



208 (DO) 



SCDASE 



SCDABEND 



SCDTKTRM 



Entry point of online 
schedule and termination 
(DLZSCHDL) 

Entry point of DL/I ABEND 
routine : 

Batch = DLZABEND 

Online = DLZABNDO 

Entry point of online task 
termination for program 
request handler (DLZTKTRM) 

**Reserved** 



Q 
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Offset Field/Flag Flag 

pec (Hex) Lenofth Name Code (Hex) Meaning 

***SYSTEM CONTROL BLOCK SECTION*** 

216 (D8) SCDDBFPL 

216 (D8) 1 SCDBFJPL 

217 (D9) 3 SCDDBFA 



220(DC) 


4 


SCDDLIPS 


224 (EO) 


2 


SCDDLIPL 


226(E2) 


2 


SCDDLIPN 


228 (EU) 


4 


SCDDLIDM 


232(E8) 


2 


SCDDLIDL 


234 (EA) 


2 


SCDDLIDN 


236 (EC) 


4 


SCDPPSTS 


240(F0) 


2 


SCDPPSTL 


242(F2) 


2 


SCDPPSTN 


244(F4) 


4 


SCDPPAF 


24 4 (F4) 


4 


SCDUSAVE 



244 (F4) 



248(F8) 
252 (FC) 
256(100) 
260(104) 



SCDFLPC 
SCDLIPLI 



80 



SCDFLSAV 40 

SCDPPAB 
SCDPPFF 
SCDPPFB 
SCDPSTLN 



Label for buffer handler 

Number of buffer subpools 

Address of buffer pool 
control block prefix 
(DLZBFPL) 

Address of PSB directory 
(DLZPDIR) 

Length of PDIR entries 

Number of PDIR entries 

Address of DMB directory 
(DLZDDIR) 

Length of DDIR entries 

Number of DDIR entries 

Address of PST prefix entries 
(DLZPPST) 

Length of PPST entries 

Number of PPST entries 

Online forward PST prefix 
active pointer 

Used for MPS or batch* 
Contains address of user 
savearea where DL/I registers 
are saved. 

Flag byte (used for MPS or 
batch) : 

= Currently executing in 

DL/I code (or in a user 
program that is not 
written in PL/I). 

1 = Currently executing in 

PL/I code. 

= User savearea used for 

STXIT PC. 

1 = DL/I savearea used for 

STXIT PC. 

Online backward PST prefix 
active pointer 

Online forward PST prefix 
free pointer (DLZPPSTF) 

Online backward PST prefix 
free pointer (DLZPPSTE) 

Length of PST 
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Offset Field/FXag Flag 

Dec (Hex) Length Name _ Code (Hex) Meaning 



262(106) 
264(108) 

268(100 

272(110) 

276(114) 

276(114) 
280(118) 

282 (llA) 

28 4 (lie) 



285 (IID) 



SCDWAIT 



SCDACTBA 



SCDCDTA 



SCBDLIS 



286 (HE) 
288(120) 



SCDDLIUP 




SCDCSABA 




SCDTKCNT 




SCDSPCNT 




SCDSIND 




SCDMTI 


80 


SCDCMTI 


40 


SCDDELT 


20 


SCDUPD 


10 


SCDTWFI 


08 


SCDHLRE 


08 


SCDNDMP 


04 


SCDNLOGI 


02 


SCDNABND 


01 


SGDNJNL 


01 


SCDSIND2 




SCDSYSAE 


80 


SCDSYACT 


40 


SCDSYWAT 


20 


SCDRLRST 


10 


SCDRELOD 


08 


SCDRLABN 


04 


SCDSYINT 


02 


SCDSOPLG 


01 


SCDNTWC 




SCDABSAV 





Number of tasks waiting for 
CMAX 

Address of online application 
program control table 
(DLZACTBA) 

Address of current online 
dispatched task's TCA 

Address of first online task 
suspended 

Address of batch DL/I upper 
boundary 

Address of online GIGS GSA 

Count of DL/I tasks assigned 
PPST 

Count of suspended tasks due 
to maximum task 

System indicator 

DL/I Maximum task indicator 

DL/I current maximum task 

indicator 

Online indicator for PSB has 

delete sensitivity 

Online indicator for PSB has 

update sensitivity 

Task waiting for segment 

intent 

High level language reentry 

indicator STXIT 

No dump at ABEND 

No data base logging to be 

done 

Batch • no STXIT ABEND to be 

issued 

Online - no GIGS journal in 

use 

System flags 

System ABEND online 

System task active 

System task waiting 

HD reload/restart 

HD reload utility 

HD reload or reload/restart 

ABEND is in process 

Initialization bit 

Open records written to GIGS 

journal 

Segment intent wait counter 

Pointer to pseudo ABEND save 
area (DLZABSAV) 



5*108 Licensed Material - Property of IBM 



offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



292(124) 


4 


SCDLSTAD 




296(128) 


4 


SCDMPCPT 




300(120 


4 


SCDEXTBA 




304(130) 


1 


SCDDBMPS 








SCDXECB 


80 






SCDPI 


40 






SCDRPSB 


20 


305(131) 


1 






306(132) 


2 






308(134) 


4 







♦♦♦DATA EASE CHANGE LOG SECTION^^^ 
312(138) 4 SCDREENT 
316 (13C) 4 SCDDBLFW 

SCDDBLCL 

SCDDBLAS 

SCDDBLSV 
SCDDBLWO 

SCDCWRK 

SCDCWRKL 

SCDSEQ 

SCDREPLN 

SCDDBLOP 

SCDDBLO 80 

SCDDBLOR 40 

SCDDBLTD 20 

SCDDBLD2 10 

SCDDBLSP 08 

SCDDBLCJ 04 

SCDDBASL 02 



SCDLOCOU 



320(140) 


4 


324(144) 


4 


328(148) 


4 


332 (14C) 


4 


336(150) 


4 


340(154) 


2 


342(156) 


2 


344(158) 


2 


346 (15A) 


1 



347 (15B) 


1 


348(150) 


2 


350(15E) 


2 


352(160) 


4 



SCDBKWRK 



Address of CICS interface 
address list (DLZDLIAL) 

Address of MPC partition 
table 

Pointer to SOD extension 

Flag Byte 

XECBs defined by MPC 
Program isolation active. 
Remote PSB defined. 

♦♦Reserved^^ 

♦♦Reserved^^ 

♦♦Reserved^^ 



Entry point of log write only 

Entry point of log force 
write 

Entry point of log close 
routine 

Entry point of asynchronous 
log 

Entry point of log save area 

Entry point of write log open 
record 

Address of DB log work area 

Length of DB log work area 

DB log sequence number 

Length of DB log prefix 

Data base log option byte 

DB log is open 

DB log open required 

Disk logging used 

Two disk extents used 

Pause before extent switch 

CICS journal in use 

DB asynchronous log required 

♦♦Reserved+^ 

Current log count 

♦♦Reserved^^ 

Backout log workarea pointer. 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meanincr 



♦♦♦TRACE SECTION^^^ 
356(164) 4 SCDTRACE 



360(168) 


8 


SCDTRCNM 




368(170) 


1 


SCDTRFLl 








SCDTUSER 


80 






SCDTAMOD 


40 






SCDTRETR 


20 






SCDTCPOS 


10 






SCDTVSAM 


04 






SCDTBHCL 


02 






SCDTINDX 


01 


369(171) 


1 


SCDTRFL2 








SCDTOLBH 


80 






SCDTPITR 


40 



370(172) 2 
I ♦♦♦STATISTICS SECTION^^^ (Online only) 
37 2(174) 8 SCDTSKCT 



380(170 


4 


SCDDLOCT 


384(180) 


4 


SCDCMTCT 


388(184) 


4 


SCDPDUP 


392(188) 




SCDLNGTH 



Entry point of trace module 
if present 

Name of trace module 

Trace option byte 1 
User call interface 
Action module trace 
Retrieve (for GET calls) 
Current position information 
VSAM interface 
Buffer handler interface 
Requests to index maintenance 

Trace option byte 2 

Online trace 

Program isolation trace 

♦♦Reserved^^ 



Total number of PSB 
scheduling calls 

Program isolation deadlock 
occurrence count 

Number of times at current 
maximum task 

N\imber of duplicate PSBs 
created 



Length of SCD 
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SCDEXT * SCD EXTENSION 



DSECT Name: SCDEXTDS 



The SCD extension is generated in the same manner as the SCD (system 
contents directory) and is a logical extension of it. 



ALPHAEETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 
Name 



Offset 
Dec (Hex) 



Flag 
Code (Hex) 



SCDAPSTR 
SCDEABEX 
SCDEABSV 
SCDEFECB 
SCDEIDNX 
SCDEIDST 
SCDEIDWK 
SCDELECB 
SCDEjyiSGT 
SCDEPASS 
SCDEPCEX 
SCDEREEN 
SCDESECB 
SCDETRAN 
SCDETRSV 
SCDETRTB 
SCDETRTE 
SCDETRTS 
SCDEVSEX 
SCDEXLEN 



24(18) 

4(04) 

8(08) 

8(08) 

24(18) 

20(14) 

28 (IC) 

0(00) 

32(20) 

16(10) 

12(0C) 

0(00) 

4(04) 

16(10) 

20(14) 

36(24) 

40(28) 

44(2C) 

12(0C) 

52(34) 



Batch usage 

Batch usage 

Batch usage 

Online usage 

Online usage 

Online usage 

Online usage 

Online usage 

Online usage 

Online usage 

Batch usage 

Batch usage 

Online usage 

Batch usage 

Batch usage 

Online usage and batch usage 

Online usage and batch usage 

Online usage and batch usage 

Online usage 

Online usage 
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RECORD LAYOUT - SCDEXT 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

** ♦Online Usage of the SCD Extension*** 

0(00) 4 SCDELECB 

4(04) 4 SCDESECB 

8(08) 4 SCDEFECB 

12 (OC) 4 SCDEVSEX 



16(10) 



20(14) 



24(18) 



28 (IC) 



32(20) 



SCDEPASS 



SCDEIDST 



SCDEIDNX 



SCDEIDWK 



SCDEMSGT 



SCDETRTB 
SCDETRTE 
SCDETRTS 



36(24) 4 

40(28) 4 

44 (2C) 4 

48(30) 4 

52(34) SCDEXLEN 

***Eatch Usage of SCD Extension*** 

0(00) 4 SCDEREEN 

SCDEABEX 

SCDEABSV 

SCDEPCEX 

SCDETRAN 

SCDETRSV 

SCDAPSTR 



4(04) 


4 


8(08) 


4 


12 (OC) 


4 


16(10) 


4 


20(14) 


4 


24(18) 


4 



Logger I/O ECB 

System enqueue ECB 

System function call ECB 

Address of VSAM EXCP exit 
(DLZOVSEX) 

Address of system password 
(DLZPASS) 

Address of first PPST ID 
assigned (DLZIDLST) 

Address of last active PPST 
ID (DLZIDLST) 

Address of PPST search table 
(DLZIDWRK) 

Address of online message 
module (DLZMMSGT) 

Current entry in incore table 

End address -H of trace table 

Start address of trace table 

**Reserved** 

Length of SCD extension 



Address of utility block call 
entry point 

Address of STXIT ABEND 
routine (DLZAABND) 

Address of STXIT ABEND save 
area 

Address of STXIT PC routine 
(DLZPABND) 

Address of ABTERM transient 
area 

Address of transient save 
area 

Application program start 
address 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



28 (IC) 


8 




36(24) 


4 


SCDETRTB 


a0(28) 


4 


SCDETRTE 


44 (2C) 


4 


SCDETRTS 


48(30) 


4 





(Not used in batch) 

Current entry in incore table 

End address +1 of trace table 

Start address of trace table 

♦♦Reserved** 
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SDB • SEGMENT DESCRIPTION BLOCK 



DSECT Name: SDB 



The segment description block (SDB) is described as part of the general 
structure and description of the program specification block (PSB) • 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


♦SDBALTSC 


IKOB) 


20 


♦SDBALTSQ 


IKOB) 


40 


♦SDBCISP 


11 (OB) 


04 


♦SDBCTR 


37(25) 


80 


♦SDBDCHG 


IKOB) 


01 


SDBDDIR 


12(0C) 




♦SDBDPAR 


IKOB) 


10 


SDBDSGA 


28 (IC) 




SDBEND 


60 (3C) 




♦SDBFLS 


56(38) 


02 


SDBF3 


10 (OA) 




SDEF4 


IKOB) 




♦SDBGEN 


32(20) 


10 


SDBKEYFD 


40(28) 




SDBKEYLN 


24(18) 




♦SDBLCH 


IKOB) 


01 


SDBLEN 


60 (3C) 




SDBLEVEL 


8(08) 




♦SDBLP 


37(25) 


02 


♦SDBLTPK 


37(25) 


04 


♦SDBLTFD 


37(25) 


08 


SDBLTN 


0(00) 




SDBLTP 


0(00) 




SDBNSDB 


16(10) 




♦SDBORGHD 


9(09) 


20 


♦SDBORGHI 


9(09) 


10 


♦SDBORGHS 


9(09) 


02 


♦SDBORGHI 


9(09) 


04 


SDBORGN 


9(09) 




♦SDBORGRI 


9(09) 


44 


♦SDBORGSH 


9(09) 


05 


♦SDBORGSS 


9(09) 


01 


SDBPARA 


24(18) 




SDBPCB 


39(27) 




SDBPCF 


38(26) 




♦SDBPCTSP 


32(20) 


40 


SDBPHYCD 


12(0C) 




SDBPOSC 


48(30) 




♦SDBPOSL 


IKOB) 


02 


SDBPOSN 


52(34) 




SDBPOSP 


44(2C) 




♦SDBPP 


37(25) 


10 


♦SDBPPST 


32(20) 


80 


♦SDBPPTSP 


32(20) 


CO 


SDBPSDB 


20(14) 




♦SDBPTB 


37(25) 


20 


SDBPTDS 


37(25) 
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Field/Flag 


Offset 


Flag 














Name 


Dec (Hex) 


code (Hex) 














♦SDBPTF 


37(25) 


40 






SDBPTNO 


36(24) 


















♦SDBSEND 


10 (OA) 


10 
















♦SDBSENG 


10 (OA) 


80 
















♦SDBSENI 


10 (OA) 


40 
















♦SDBSENK 


10 (OA) 


08 
















♦SDBSENL 


lO(OA) 


01 
















♦SDBSENP 


10 (OA) 


04 
















♦SDBSENR 


10 (OA) 


20 
















♦SDBSENX 


10 (OA) 


02 
















♦SDBSLC 


32(20) 


02 
















♦SDBSLP 


32(20) 


01 
















♦SDBSNX 


32(20) 


04 
















♦SDBSPP 


32(20) 


08 
















SDBSYM 


0(00) 


















SDBTARG 


33(21) 


















SDBTFLG 


32(20) 


















SDBXFFSB 


16(10) 




(See 


SDBXP block at end of SDB) 


SDBXFISL 


6(06) 




(See 


SDBXP block at end of SDB) 


SDBXFL 


56(38) 


















SDBXFLAG 


12 (OC) 




(See 


SDBXP 


block 


at 


end 


of 


SDB) 


SDEXFLEN 


16(10) 




(See 


SDBXP 


block 


at 


end 


of 


SDB) 


SDBXFLN 


2(02) 




(See 


SDBXP 


block 


at 


end 


df 


SDB) 


SDBXFNB 


1(01) 




(See 


SDBXP 


block 


at 


end 


of 


SDB) 


♦SDBXFNR 


12(0C) 


80 


(See 


SDBXP 


block 


at 


end 


of 


SDB) 


SDEXFSBP 


8(08) 




(See 


SDBXP 


block 


at 


end 


of 


SDB) 


SDBXFUSL 


4(04) 




(See 


SDBXP 


block 


at 


end 


of 


SDB) 


SDBXPANS 


56(38) 


















SDBXPASF 


16(10) 




(See 


SDBXP 


block 


at 


end 


of 


SDB) 


SDBXPEND 


20(14) 




(See 


SDBXP 


block 


at 


end 


of 


SDB) 


SDBXPFDB 


0(00) 




(See 


SDBXP 


block 


ait 


end 


of 


SDB) 


♦SDBXPFS 


0(00) 


02 


(See 


SDBXP 


block 


at 


end 


of 


SDB) 


SDBXPMSK 


4(04) 




(See 


SDBXP 


block 


at 


end 


of 


SDB) 


♦SDBXPRES 


56(38) 


01 
















♦SDBXPSI 


0(00) 


01 


(See 


SDBXP 


block 


at 


end 


of 


SDB) 


SDBXPSZ 


20(14) 




(See 


SDBXP 


block 


at 


end 


of 


SDB) 


SDBXPTYP 


0(00) 




(See 


SDBXP 


block 


at 


end 


of 


SDB) 


SDBXSQLN 


14(0E) 




(See 


SDBXP 


block 


at 


end 


of 


SDB) 


SDBXSQOF 


12(0C) 




(See 


SDBXP 


block 


at 


end 


of 


SDB) 


SDBXWMSK 


8(08) 




(See 


SDBXP 


block 


at 


end 


of 


SDB) 
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RECORD LAYOUT • SDB 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) 



Meanincf 



0(00) 
0(00) 

0(00) 

8(08) 

9(09) 



10 (OA) 



11 (OB) 



12 (OC) 


1 


12 (OC) 


4 


16 (10) 


4 


20(14) 


4 



SDBSYM 




SDBLTP 




SDBLTN 




SDBLEVEL 




SDBORGN 




SDBORGRI 


44 


SDBORGHD 


20 


SDBORGHI 


10 


SDBORGSH 


05 


SDBORGHI 


04 


SDBORGHS 


02 


SDBORGSS 


01 


SDBF3 




SDBSENG 


80 


SDBSENI 


40 


SDBSENR 


20 


SDBSEND 


10 


SDBSENK 


08 


SDBSENP 


04 


SDBSENX 


02 


SDBSENL 


01 


SDBF4 




SDBALTSQ 


40 


SDBALTSC 


20 


SDBDPAR 


10 


SDBCISP 


04 


SDBPOSL 


02 


SDELCH 


01 


SDBDCHG 


01 


SDBPHYCD 




SDBDDIR 




SDBNSDB 




SDBPSDB 





Segment symbolic name 

Prior segment on logical twin 
chain 

Next segment on logical twin 
chain 

Level of this segment 
(logical) 

Organization of data base 

containing segment 

This segment is root of index 

This segment is in a HDAW 

organization 

This segment is in a HIDAM 

organization 

This segment is in a simple 

HISAM organization 

This segment is in a HISAM 

organization 

This segment is in an HSAM 

organization 

This segment is in a simple 

HSAM organization 

Call sensitivity 
Sensitivity is read only 
Sensitivity is insert 
Sensitivity is replace 
Sensitivity is delete 
Sensitivity is key only 
Sensitivity is path only 
Sensitivity is exclusive 
Sensitivity is load 

Code byte 

Secondary index is main 

processing sequence 

Secondary index search fields 

require conversion 

Field is in destination 

parent 

Control interval split 

occurred in HISAM KSDS 

Position lost 

Field is in logical child 

Temporary switch for replace; 

data changed 

Segment code 

DMB directory address 

Next SDB for this PSDB 

Address of PSDB 
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Offset Field/Flag Flag 

pec (Hex) Length Name Code (Hex) Meaning 



24(18) 
24(18) 



28 (IC) 



32(20) 



SDBKEYLN Executable key length of key 

field 

SDBPARA Parent SDB (address of PCB 

for root SDB) or address of 
prior SDB on 'SDBTARG' chain 
for generated SDBs (SDBGEN on 
in SDBTFLG) 

SDBDSGA Address of data set group 

section of JCB for data set 
containing segment 

Logical relationship code 

Segment is physical parent of 

target of SDBPARA 

Segment is physical parent of 

SDBPARA 

Segment is physical child of 

target of SDBPARA 

This SDB is a generated SDB 

Segment is a virtual logical 

child 

Segment is retrieved via 

index 

(See bit flag 0001 0010) 

segment is a logical child 



Inverted structure •- The segment 
logically above this one is below it in 
the physical data base hierarchy. The 
segment logically above this one is 
represented by the SDB pointed to in 
SDBPARA. If SDBPARA points to a SDB for 
a logical child, this segment could be 
physically above either the logical child 
or its destination parent. A generated 
SDB pointed to by SDBTARG in the logical 
child's SDB represents the destination 
parent. 

xlxO xxxx Logical relation - The segment 

represented by the SDB pointed to by 
SDBPARA is a logical child and this 
segment is either the physical parent or 
a physical child of its destination 
parent. 

10x0 xxxx This segment is the physical parent of 
the segment represented by the SDB 
identified as SDBPARA. 

11x0 xxxx The segment represented by the SDB 

pointed to in SDBPARA is a logical child 
and this segment is the physical parent 
of its destination parent (SDBTARG). 

01x0 xxxx The segment represented by the SDB 

pointed to in SDBPARA is a logical child 



SDBTFLG 




SDBPPTSP 


CO 


SDBPPSP 


80 


SDBPCTSP 


40 


SDBGEN 


10 


SDBSPP 


08 


SDBSNX 


04 


SDBSLC 


02 


SDBSLP 


01 


SDBTFLG Bit 


Flags 


IxxO xxxx 


Inver 
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Offset Field/Flag Flag 

Dec(Hex) Length Name _ Code(Hex) Meaning 



33(21) 
36(24) 
37(25) 



38(26) 



39(27) 



U0(28) 



and this segment is a physical child of 
its destination parent. 

xxxO Ixxx This segment is the logical child in a 
virtual logical child concatenated 
segment and SDBTARG point to the logical 
child *s physical parent, 

xxxO xxxl This segment is the logical child in a 
normal concatenated segment and SDBTARG 
points to the logical parent. 

xxxl xxxx SDB is a generated SDE. 

0001 0010 SDB is a generated SDB for an index. If 
SDBTARG is non-zero^ it points to the 
generated SDB for the index target. 

0001 0110 SDB is a generated SDB for a HIDAM root 
segment. SDBTARG points to the SDB for 
the primary index segment. 

SDBTARG Address of the logically 

related segments SDB 

Pointer number of first 
physical pointer 

Physical pointer flag 

This logical parent segment 

has a counter 

This segment has a physical 

twin forward pointer 

This segment has a physical 

twin backward pointer 

This segment has a physical 

parent pointer 

This segment has a logical 

twin forward pointer 

This segment has a logical 

twin backward pointer 

This segment has a logical 

parent pointer 

SDBPCF Pointer number in parent to 

first occurrence of this 
segment type 

SDBPCB pointer number in parent to 

last occurrence of this 
s egment type 

SDBKEYFD The address within DBPCBKFD 

for key this segment. In 
generated SDB for logical 
destination parent: 
Byte = physical segment 
code of logical 
child 
Bytes 1-3 = logical child's 
PSDB address 



SDBPTNO 




SDBPTDS 




SDBCTR 


80 


SDBPTF 


40 


SDBPTB 


20 


SDBPP 


10 


SDBLTFD 


08 


SDBLTBK 


04 


SDBLP 


02 
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Offset Field/Flag Flag 

Dec(Hex) Length Name Code (Hex) Meaning 



In generated SDB for physical 
destination parent: 



Byte = 



Bytes 1-3 = 



Physical segment 
code of virtual 
logical child 
virtual logical 
child's PSDB 
address 



I 44 (2C) 
48(30) 



52(34) 
56(38) 



56(38) 
60 (3C) 
60 (3C) 



SDBPOSP 
SDBPOSC 

SDBPOSN 



SDBXFL 
SDBXPRES 01 



SDBFLS 

SDBXPANS 

SDBEND 

SDBLEN 



02 



Previous position 

Current position. X*80' in 
high-order byte = position 
lost, in conjunction with 
SDBPOSL in SDBF4 

Next position (current 
position in generated SDBs) 

SDB expansion flag 

SDB expansion for secondary 

index processing sequence is 

present. (secondary index is 

main processing sequence.) 

segment has field level 

sensitivity 

SDB expansion address 

End of SDB entry 

Length of each SDB (SDBEND 
minus SDBSYM) 



***SDB EXPANSION BLOCK*** 



DSECT Name: SDBXP 

This block is present if indicated in SDB; see field SDBXFL, flag 
SDBXPRES o 



0(00) 



0(00) 
4(04V 
8(08) 



SDBXPTYP 
SDBXPSI 01 

SDBXPFS 02 



SDBXPFDB 



SDBXPMSK 



SDBXWMSK 



SDB expansion type 

SDB expansion is for 

secondary index 

SDB expansion is for field 

sensitivity 

Address of secondary index 
sequence field FDB 

Mask of XDFLD FDBs allowed in 
SSAS 

work area reserved for 
open/close 



Licensed Material - Property of IBM 5^119 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) 



Meaning 



12 (OC) 

14 (OE) 

j 16(10) 

20(14) 

20(14) 



SDBXSQOF 

SDBXSQLN 
SDBXPASF 
SDBXPEND 
SDBXPSZ 



Offset from DBPCBKFD to 
SUBSEQ area (0 if area not 
present) 

Length of SUBSEQ field (s) 
minus 1 

Alternate sequence FSB 
pointer 

End of SDB expansion block 
entry 

Length of one SDB expansion 
block entry (SDBXPEND minus 
SDBXP) 



***SDB EXPANSION BLOCK FOR FIELD SENSITIVITY*** 



1(01) 


1 


SDBXFNB 


2(02) 


2 


SDBXFLN 


4(04) 


2 


SDBXFUSL 


6(06) 


2 


SDBXFISL 


8(08) 


4 


SDBXFSBP 


12 (OC) 


1 


SDBXFLAG 
SDBXFNR 


13 (OD) 


3 




16(10) 





SDBXFEND 


16(10) 





SDBXFLEN 


16(10) 





SDBXFFSB 



80 



Number of FSBs 

Length of expansion block 

Length of segment in user's 
view 

Insert length of segment 

ACBGEN - first FSB address 

Flags 

At least one NOREPL rule 

**Reserved** 

End of SDB expansion block 
entry 

Length of one SDB expansion 
block 

Start of first FSB 
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SEC - SECONDARY LIST 



DSECT Name: DMBSEC 



The secondary list is described as part of the general structure and 
description of the DMB. The labels in SEC vary with the type of 
secondary index entry. See the field description listed by code type in 
the record layout. 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 






Name 


Dec (Hex) 


code (Hex] 


Code 




♦DMBEXIT 


1(01) 


02 


(See 


40) 


♦DMBEXLOD 


1(01) 


04 


(See 


Code 


40) 


♦DMBEXTRN 


0(00) 


40 








DMBFDFLG 


1(01) 




(See 


code 


04) 


DMBFDOFF 


6(06) 




(See 


Code 


04) 


*DMBFDONE 


1(01) 


10 


(See 


Code 


04> 


♦DMBFDUSE 


1(01) 


01 


(See 


Code 


04) 


♦DMBINDXD 


0(00) 


44 








DMBIPSDB 


8(08) 




(See 


Code 


64) 


DMBISSOF 


2(02) 




(See 


Code 


64) 


DMBISSSC 


8(08) 




(See 


Code 


64) 


DMBNBYTE 


4(04) 




(see 


Code 


40) 


♦DMBNXISS 


0(00) 


60 








♦DMBNXXDS 


0(00) 


64 








DMBSCDE 


0(00) 










DMBSECDB 


4(04) 




(see 


Code 


01) 


DMBSECLN 


16(10) 




(See 


Code 


64) 


DMBSECND 


16(10) 




(See 


Code 


64) 


DMBSECNM 


8(08) 




(See 


Code 


01) 


DMBSECSC 


4(04) 




(See 


Code 


01) 


DMBSFCEN 


12(0C) 




(See 


Code 


08) 


DMBSFD 


2(02) 




(See 


code 


01) 


DMBSFLEN 


13(0D) 




(See 


Code 


08) 


DMBSFLG 


1(01) 




(See 


code 


01> 


DMBSFLGl 


1(01) 




(See 


Code 


40) 


DMBSFNAM 


2(02) 




(See 


code 


08) 


DMBSFOFF 


10 (OA) 




(See 


Code 


08) 


DMBSFPSC 


1(01) 




(see 


Code 


08) 


DMBSKYLN 


1(01) 




(See 


Code 


60) 


♦DMBSLC 


0(00) 


02 








♦DMBSLCF 


0(00) 


08 








DMBSLCFL 


2(02) 




(See 


code 


02) 


DMBSLCIR 


1(01) 




(See 


Code 


02) 


♦DMBSLP 


0(00) 
0(00) 


01 








♦DMBSND 


80 








♦DMBSNULL 


1(01) 


01 


(See 


Code 


40) 


DMESOFF 


2(02) 




(See 


Code 


44) 


♦DMBSOURC 


0(00) 


20 








♦DMBSRCH 


0(00) 


04 








♦DMBSUBSQ 


0(00) 


24 








♦DMBSYMNl 


1(01) 


04 


(See 


Code 


04) 


DMBSYMOF 


14 (OE) 




(see 


Code 


44) 


♦DMBSYMl 


1(01) 


08 


(See 


Code 


04) 


♦DMBSYSFD 


1(01) 


02 


(See 


code 


04) 


♦DMBVKY 


1(01) 


C'V 


• (See 


Code 


01) 
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FieXd/Flag 


Offset 


Flag 






Name 


Dec (Hex) 


code (Hex) 


1 
Code 




♦DMBXDCON 


12(0C) 


08 


(See 


44) 


♦DMBXDEQ 


12(0C) 


01 


(See 


Code 


44) 


DMBXDFLG 


12(0C) 




(See 


Code 


44) 


♦DMBXDLST 


12 (OC) 


80 


(See 


Code 


44) 


DMBXDPAD 


13(0D) 




(See 


Code 


44) 


DMBXDSC 


8(08) 




(See 


Code 


44) 


DMBXDSDB 


4(04) 




(See 


Code 


44) 


♦DMBXDSPC 


12 (OC) 


10 


(see 


code 


44) 


DMBXDSSC 


4(04) 




(See 


Code 


44) 


♦DMBXDSSQ 


12 (OC) 


04 


(See 


code 


44) 


♦DMBXDSSS 


12 (OC) 


20 


(see 


Code 


44) 


♦DMBXDSYM 


12 (OC) 


40 


(see 


code 


44) 


DMBXITAD 


4(04) 




(See 


Code 


40) 


DMBXNSDB 


4(04) 




(See 


Code 


60) 


DiyiBXNSSC 


4(04) 




(See 


Code 


60) 


DMBXPSDB 


8(08) 




(see 


Code 


44) 


DMBXSOFF 


14(0E) 




(See 


Code 


08) 
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RECORD LAYOUT • SEC 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



0(00) 



DMBSCDE 




EfMBSLP 


01 


DMBSLC 


02 


DMBSRCH 


04 


DMBSLCF 


08 


DMBSOURC 


20 


DMBSUBSQ 


24 


DMBEXTRN 


40 


DMBINDXD 


44 



DMBNXISS 60 



DMBNXXDS 64 



DMBSND 80 
** ♦THE FOLLOWING FIELDS ARE LISTED BY CODE TYPE*** 
***CODE 01 • DESCRIBES LOGICAL PARENT*** 



Code byte 

Secondary list describes a 
logical parent 
Secondary list describes a 
logical child 
Secondary list describes 
index search field (s) 
Secondary list describes 
logical twin sequence field 
Secondary list describes 
index DDATA field (s) 
Secondary list describes 
index SUBSEQ field (s) 
Secondary list describes 
index user exit routine 
Secondary list describes 
index target segment as seen 
from index pointer segment 
Secondary list describes 
index relationship as seen 
from index source segment 
Secondary list describes 
index relationship as seen 
from index target segment • 
This list is not present if 
ISS=TARGET 
Last entry in secondary list 







DMBVKY 


2(02) 


2 


DMBSFD 


4(04) 


1 


DMBSECSC 


4(04) 


4 


DMBSECDB 


8(08) 


8 


DMBSECNM 



c*v 



***CODE 02 • DESCRIBES LOGICAL CHILD*** 
1(01) 1 DMBSLCIR 



2(02) 



DMBSLCFL 



Key of logical parent is 
virtual 

Logical parent key length 

Segment code of referenced 
segment 

DDIR address of referenced 
data base 

Segment name of referenced 
segment 



Logical twin sequence insert 
rule 

Number of first and last 
logical child pointers in 
logical parent prefix 



Remaining fields are same as Code 01. 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

♦♦♦CODE 04 * DESCRIBES INDEX SEARCH FIELDS^^^ 



1(01) 



6(06) 



10 



DMBFDFLG 




DMBSYMl 


08 


DMBSYMNl 


04 


DMBSYSFD 


02 


DMBFDUSE 


01 


DMBFDONE 


10 


DMBFDOFF 





Five 1-byte flags associated 

with the following FDB 

offsets 

First part of symbolic 

pointer 

Not first part of symbolic 

pointer (middle or last) 

This slot for system-related 

field 

This slot in use 

This entry processed by block 

builder 

Offset to FDB f rom if irst FDB 
of ISS if this slot is; in 
use. Otherwise, zero; 



♦♦♦CODE 08 • DESCRIBES LOGICAL TWIN SEQUENCE FIELD^^^ 



1(01) 



DMBSFPSC 



2(02) 


8 


DMBSFNAM 


10 (OA) 


2 


DMBSFOFF 


12 (OC) 


1 


DMBSFCEN 


13 (OD) 


1 


DMBSFLEN 


14 (OE) 


2 


DMBXSOFF 



Virtual logical child 
physical segment code 

FDB field name 

Offset to field in segment 

Code byte (same as FDBDCENF 
in FDB) 

Executable field length 

Offset to field in indexed 
segment 



♦♦♦CODE 20 - DESCRIBES DDATA FIELD^^^ 

Same fields as Code 04 

♦♦♦CODE 24 - DESCRIBES SUBSEQ FIELDS ♦♦ 

Same fields as Code 04 

♦♦♦CODE 40 - DESCRIBES INDEX EXIT ROUTINE^^^ 



1(01) 

2(02) 
4(04) 

4(04) 

8(08) 



DMBSFLGl 
DMBSNULL 
DMBEXIT 
DMBEXLOD 



DMBNBYTE 



DMBXITAD 



01 
02 
04 



Flag byte 

Null field present 

Exit routine present 

Exit routine has been loaded 

♦♦♦Reserved^^^ 

If index field equals this 
byte, bypass indexing 

Address of index maintenance 
parameter CSECT 

♦♦♦Reserved^^^ 
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Offset Field/Flag Flag 

pec (Hex) Length Name Code (Hex) Meaning 

♦♦♦CODE aU - DESCRIBES INDEX TARGET SEGMENT^^^ 



1(01) 


1 


2(02) 


2 


4(04) 


4 


4(04) 


4 


8(08) 


4 


8(08) 


4 


12 (OC) 


1 



13 (OD) 
14 (OE) 



DMBSKYLN 
DMBSOFF 

DMBXDSSC 
DMBXDSDB 
DMBXDSC 
DMBXPSDB 



DMBXDFLG 
DMBXDLST 
DMBXDSYM 
DMBXDSSS 

DMBXDSPC 

DMBXDCON 
DMBXDSSQ 
DMBXDSOR 
DMBXDEQ 

DMBXDPAD 

DMBSYMOF 



80 
40 
20 

10 

08 
04 
02 
01 



♦♦♦CODE 60 - DESCRIBES INDEX FROM ISS+^^ 

1(01) 3 

4(04> 1 DMBXNSSC 



4(04) 4 DMBXNSDB 

Remaining fields same as code 44 

♦♦♦CODE 64 - DESCRIBES INDEX FROM INDEX TARGET^^^ 



Executable length of key 

Offset to PSDB address 
pointer of index target 
segment 

Segment code of index target 
segment 

DDIR address of index target 
segment 

Segment code of index target 
segment 

PSDB address of index target 
segment 

Code byte from associated FDB 

Last FDB in list 

Index pointer is symbolic 

Pointer contained in 

source/subseq data 

Special FDB for secondary 

index 

Constant present 

SUBSEQ present 

XDS=ISS 

Padding constant 

offset to symbolic pointer 
indexing segment 



Same as code 44 

Segment code of index pointer 
segment 

DDIR address of index 



1(01) 


1 




2(02) 


2 


DMBISSOF 


4(04) 


4 




8(08) 


1 


DMBISSSC 


8(08) 


4 


DMBIPSDB 



Same as code 44 

Offset to Code 60 from start 
of ISS secondary list 

Same as code 60 

Segment code of index source 
segment 

PSDB address of index source 
segment 



Licensed Material - Property of IBM 5-125 



Offset Field/Flag Flag 

Dec(Hex) Length Name Code(Hex) Meaning 

12 (OC) 1 Same as code 44 

16(10) DMBSECND End of each secondary list 

entry 

16(10) DMBSECLN Length of each secondary list 

entry 
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UIB 



USER INTERFACE BLOCK 



DSECT Name: ELIUIB 



The user section of this control block is used by extended DL/I call 
interface support (along with CICS/VS high-level language support) . 
This section contains scheduling and system call status information 
returned to the user- (Prior to Version 1,4, this information was 
returned to the user in the TCA.) A system section of the UIB follows 
the user section. It is used by DL/I as task- local storage. Unlike PST 
storage, UIB storage is not released at scheduling termination. 



RECORD LAYOUT - UIB (USER SECTION) 



Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 



0(00) 





UIB 


0(00) 


4 


UIBPCBAL 


4(04) 





UIBRCODE 


4(04) 


1 


UIBFCTR 


5(05) 


1 


UIBDLTR 


6(06) 


2 


Unnamed 


8(08) 




UIBLEN 



Start of UIB DSECT. 

PCB address list. 

DL/I return codes. 

Return code. 

Additional information. 

♦♦Reserved** 

Length of UIB (for Assembler 
language only) . 
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RECORD LAYOUT - UIB (SYSTEM SECTION) 



Offset 
Dec (Hex) 


Lenqth 


Field/Flag 

Name 


Flag 
code (Hex) 


Meaning 


8(08) 


64 


UIBREGSV 




Register save area. 


72(48) 


8 


UIBPSB 




PCB name on scheduling call 


80(50) 


4 


UIBFUNC 




Call function type. 


84(54) 


1 


UIBFLAGl 




UIB Flag, 






UIBSCHD 


01 


Scheduling call. 






UIBDB 


02 


Data base call. 






UIBTERM 


04 


Term call. 






UIBREMOT 


80 


PSB on remote system. 


85(55) 


1 


UIBFLAG2 




UIB flag,. 


88(58) 




UIBSLEN 




Length of user and system 



UIB 
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XMPRM - HDAM/HIDAM USER SECONDARY INDEX SUPPRESSION ROUTINE INTERFACE 
TABLE 



DSECT Name: DMBXMPRM 



This table is described as part of the general structure and description 
of the data management block (DMB) . 



ALPHABETIC LIST OF FIELD/FLAG NAMES 



Field/Flag 


Offset 


Flag 


Name 


Dec (Hex) 


code (Hex) 


DMBXMPLN 


28(1C) 




DMBXMRES 


32(20) 




DMBXMSGN 


0(00) 




DMBXMXDN 


8(08) 




DMBXMXEP 


2U(18) 




DMBXMXNM 


16(10) 





RECORD LAYOUT 



XMPRM 



Offset Field/Flag Flag 

Dec (Hex) Length Name code (Hex) Meaning 



0(00) 
8(08) 
16(10) 
24(18) 

28 (IC) 

30 (IE) 
32(20) 



DMBXMSGN 
DMBXMXDN 
DMBXMXNM 
DMBXMXEP 

DMBXMPLN 
DMBXMRES 



Name of indexed segment 

Name of XDFLD 

Name of user exit routine 

Entry point of user exit 
routine 

Length of index maintenance 
parameters 

♦♦♦Reserved*** 

Reserved for initialization 
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RECORD LAYOUTS 

The rest of this section provides layouts and field descriptions for the 
following records: 

Accumulation Header Record 

Accumulation Record 

Application Program Scheduling Record 

Application Program Termination Record 

Checkpoint Log Record 

Checkpoint Record 

Control Data Set 

Data Base Log Record 

Data Record (Input) 

Data Record (Output) 

Date/Time Table 

Delete Work Area 

Delete work Space Prefix 

DL/1 Control Record 

Dump Header Record 

Dump Record Prefix 

File Open Record 

Header Record (Input) 

Header Record (Output) 

Index Maintenance Work Area 

List Control Block 

Output Record Containing Segment Prefix 

Output Table Record 

Short Segment Table 

Sorted List Block 

SSA for GU Call by Key 

SSA for GU Call by RBA 

SSA for the XMAINT Call to the Analyzer 

Statistics Record 

Work File 1 

Work File 3 
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ACCUMULATION HEADER RECORD 
This record is used by modules 
Hex Dec Name Ln 
HLENGTH 2 
2 2 HSPACE 2 
U 4 HCODE 1 
5 5 HFLG 1 



6 


6 


HLRECL 


2 


8 


8 


HORG 


1 


9 


9 


HPURDATE 


3 


C 


12 


HPURTIME 


4 


10 


16 


HDDNAME 


8 


18 


24 


HDBNAME 


8 


20 


32 


HDSID 


1 


21 


33 


HDATE 


3 


24 


36 


HTIME 


4 


28 


ao 


HSEQ 


2 


2A 


42 


HBLKSIZE 


2 



DLZUC350 and DLZURDBO. 

Description 

Length of cum header record 

Zeros 

Header record ID X'OO' 

Type of data set and organization 
Bit 5=0 ESDS data set 

=1 KSDS data set 
6=0 HS data set 

=1 HD data set 

Record length 

Prefix organization code 

Purge date for data base data set 

Purge time for data base data set 

Data set symbolic filename 

Data base name 

Data set ID 

Run date - YYDDDF 

Run time - HHMMSSOF 

Zeros 

Block size 



ACCUMULATION RECORD 

This record is used by modules DLZUC350 and DLZURDBO. 



Hex 


Dec 


Name 


liB 


Description 








CLENGTH 


2 


Length of cum record 


2 


2 


CSPACE 


2 


Zeros 


4 


4 


GCODE 


1 


X'50' record identifier 


5 


5 


CFLG 


1 


Type of data set and organization 
Bit Meaning 
5=0 ESDS 

=1 KSDS 
6=0 HS file 

=1 HD file 


6 


6 


CIDLN 


2 


Length of CDATAID field 


8 


8 


CDBNAME 


8 


Data base name 


10 


16 


CDSID 


1 


Data set ID 
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11 


17 


CDATE 


3 


14 


20 


CTIME 


4 


18 


24 


CSEQ 


2 


lA 


26 


CCOUNT 


2 


IC 


28 


CDATAID 


Var 






CDATAOL 


Var 



CDATASEG 



Var 



Date - YYDDDF 

Tiine • HHMMSSQF 

Sequence number 

Number of data elements of CDATA 

KSDS prime key or ESDS RBN 
One or more 4 byte data elements: 
bytes 0*1 • offset into data set record 
bytes 2*3 - length of corresponding 

CDATASEG 
One or more segment data entries to 
be moved into data set record. 



APPLICATION PROGRAM SCHEDULING RECORD 

This record is used by modules DLZRDBLO, DLZRDBLl, DLZLOGPOr and 
DLZBACKO. 

Description 

Length of record 

Binary zero 

Record type code - X*08' 

Task ID 

PSB name 

Packed CICS Transaction ID 
(online only) 



Hex 


Dec 


Name 


Ln 








LENGTH 


2 


2 


2 


SPACE 


? 


4 


4 


LOGFLAG 


1 


5 


5 


SCHDCODE 


1 


8 


8 


PSBNAME 


8 


E 


14 


CICSID 


3 



APPLICATION PROGRAM TERMINATION RECORD 

by modules DLZRDBLO, DLZRDBLlr DLZLOGPO, and 



This record is used 
DLZBACKO. 

Hex Dec Name 

PLENGTH 

2 2 PSPACE 

4 4 ALLOGFLG 



36 54 



Ln Description 

2 Halfword binary length of logical record 

2 Halfword reserved for system use 
(binary zero) 

1 Identifies this logical record as 
application program termination 
record; value is X'07" 



5 


5 


ALPSBNAM 


8 


PSB name 


D 


13 


ALID 


1 


TASK ID 


£ 


14 


TSKSTAT 


40 


10 fullw( 



CICSID 



10 fullwords of Accounting from PSTACCT 
(online only) 

Packed CICS transaction I.D. 
(online only) 
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CHECKPOINT LOG RECORD 

Checkpoint log records are used to restart a job near its point of 
failure. The records are created and written on the DL/I log (if data 
base logging is active) if requested by the user via checkpoint calls 
(CHKP), Each log record contains a user-supplied unique checkpoint 
identification passed with the CHKP call. 

In case of a job failure in a batch environment, the backout utility can 
be run to backout data base changes occurring since the last checkpoint 
record was written. For MPS and/or online tasks with CICS/VS dynamic 
transaction backout active, backout is performed automatically to the 
last checkpoint when a task fails. 



Hex Dec 




5 
D 



Name 
CHKPLEN 
CHKPSPC 
CHKPCODE 
Flag Name 



5 
13 



15 21 



CHKPLRID 

CHKPPSB 

CHKPID 

CHKPRLEN 



Ln Description 

2 Length of log record 

2 Blanks/zeros 

1 Log record ID 

Hex Code Meaning 



41 Checkpoint Log record ID 

8 Checkpoint PSB name 
8 User checkpoint ID 

Length of checkpoint log record 



CHECKPOINT RECORD 

This DSECT (RCHKREC) defines the format of the checkpoint records within 
the unloaded data base for HD reorganization unload/reload utilities. 

Hex Dec Name Ln Description 

RCHKPTID 1 Identifies checkpoint record; 

Always X'OO* 

1 1 RCHKNAME 6 Constant for checkpoint record; 

Always C'CHKPNT' 

7 7 RCHKNUM U ChecHpoint number; 1-9999 (decimal) 

B 11 1 comma, for message to SYSLOG and SYSLST 

C 12 RCHKVOLl 6 If tape, file serial 

number of output volume one at 
checkpoint time. If DASD - ♦**♦♦♦. 

12 18 1 comma, for message to SYSLOG and SYSLST 

13 19 RCHKV0L2 6 If tape, file serial 

number of output volume two at 
checkpoint time. If DASD - *♦♦**♦. 

19 25 1 Comma, for message to SYSLOG and SYSLST 

lA 26 RCKSEGNM 8 Segment name of root segment in process 

at checkpoint time 
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Reserved for future use 

Length of I/O area needed for GU call 
at restart time 

RBN of current record, if HD organization 

Number of checkpoint records 
(1 or 2) 

Key length of current segment , if 

HISAM 

segment sequence field value, if 
HISAM 

Reserved 

Total number of segments unloaded 

Total number of root segments unloaded 

Statistics table 



Checkpoint message written to SYSLOG and SYSLST consists of 
message prefix DLZ381I followed by bytes 1 ^ 34 of the 
checkpoint record. 



22 


34 




4 


26 


38 


RCHKRECL 


2 


28 


ao 


RCHKPOSC 


4 


2C 


44 


RCHKPTNR 


1 


2D 


45 


RCHKEYLN 


1 


2E 


46 


RCKEYVAL 


236 


llA 


282 


Reserved 


12 


126 


294 


RCHKSEG 


4 


12A 


298 


RCHKROOT 


4 


12E 


302 


RCHKREND 


Var 


Notes: • 


Dummy chec 


kpoin 



CONTROL DATA SET 

Macro DLZUCDSO contains the DSECT defining format of a control list 
entry. One or more list entries may be contained in the control list. 
The control list may spread over one or more control list blocks. 

♦♦♦Control Information and Identifier ♦♦♦ 



Hex 


2 

4 

18 



19 
lA 



Dec 


2 

4 
24 



25 
26 



Name 
LECELCNT 

LELSTLOC 
LECDSID 
LEFLG4 
FLAG Name 



Ln Description 



Ln 
2 



Number of 1600 byte records in 
control data set 



2 Displacement to next entry 

20 Identifier: • CONTROL DATA SET '. 

1 Flag byte 4: 

Hex Code Meaning 



LESTAT 80 Statistics to be provided 

LESUMM 40 Give summary for message DLZ978I 

Unnamed 1 ♦♦Reserved^^ 

LESRTSZE 2 Maximum work file record length used 

as SORT size parameter by prefix 
resolution utility (DLZURGIO). 
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♦♦♦Data Base List Entry^^^ 
Hex Dec Name 
LEFPTR 



LENAME 
LESLPTR 

LECRNO 
LELEN 
LEFLGl 
Flag Name 



l\ 


4 


c 


12 


xo 


16 


12 


18 


13 


19 



LEFISOPT 
LEFISMET 

LEFIS 
LEFIR 
LEFII 

♦♦♦Segment List Entry^^^ 

Hex Dec Name 

LEFPTR 



LENAME 
LESLPTR 

LECRNO 
LELEN 
LEFLGl 
Flag Name 



4 


4 


c 


12 


10 


16 


12 


18 


13 


19 



14 
18 



20 
24 



Ln Description 



List entry forward pointer (to 
next list element at same level) 

DBD name. 

List entry sublist pointer (to list 
at next lower level) 

Input control card number 

Length of list entry 



1 Flag byte 1: 
Hex Code Meaning 



80 
40 

02 
01 
00 



in 
4 

8 
4 



User specified scan method option 
If bit 1=0 use SEQ scan method 
If bit 1=1 use SEG scan method 
Data base is scanned 
Data base is reorganized 
Data base is initially loaded 



Description 

List entry forward pointer (to 
next list element at same level) 

Logical parent segment name. 

List entry sublist pointer (to list 
at next lower level) 



2 Input control card number 
1 Length of list entry 
1 Flag byte 1: 
Hex Code Meaning 



LEFISOPT 80 User specified scan method option 

LEFISMET 40 If bit 1=0 use SEQ scan method 

If bit 1=1 use SEG scan method 

LEFIS 02 Data base is scanned 

LEFlR 01 Data base is reorganized 

LEFII 00 Data base is initially loaded 

LEPSDB 4 PSDB for segment entry 

LELSDB 4 LSDB for segment entry 



♦♦♦Secondary List Entry^^^ 
Hex Dec Name Ln Description 
LEFPTR 4 



List entry forward pointer (to next list 
element at same lavel) 
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4 4 
C 12 
E 14 



F 15 

10 16 

12 18 

13 19 



14 20 

15 21 



LENAME 8 

LEFDLP 2 

LEFLG3 1 

Flag Name 



LET 2 3 

LELCSQ 

LENLC 

LELPCK 
LELPOA 

Unnamed 1 

LEFDLC 2 

LELEN 1 

LEFLGl 1 

Flag Name 



LEFISOPT 
LEFISMET 

LEFIS 
LEFIR 
LEFII 

LELCSC 1 

LEFLG2 1 

Flag Name 



Referenced data base name. 

Length of logical parent concatenated key. 
Flag byte 3: 
Hex Code Meanincr 



80 
40 
20 

02 
01 



Use type 20/30 records. 

Use logical child seguence field. 

No logical child found for logical 

parent. 

Use logical parent concatenated key. 

Use logical parent old address. 



♦♦Reserved** 

Position of logical 
child pointers in prefix 

Length of list entry 

Flag byte 1: 

Hex Code^ Neaning 



80 User specified scan mehtod option 

40 If bit 1=0 use SEQ scan method 

If bit 1=1 use SEG scan method 
02 Data base is scanned 

01 Data base is reorganized 

00 Data base is initially loaded 

Logical child's segment code 

Flage byte 2: 

Hex Code Meaning 



17 23 



LECTR 80 Update counter 

LELCF 40 Update logical child forward pointer 

LELCL 20 Update logical child last pointer 

LELP 10 Update logical parent pointer 

LELTF 08 Update logical twin forward pointer 

LELTB 04 Update logical twin backward pointer 

LECUS 02 Counter used this logical child 

Unnamed 2 ♦♦Reserved^^ 



DATA BASE LOG RECORD 

This record is used by modules DLZRDBLO, DLZRDBLl, DLZBACKO, DLZLOGPO , 
DLZURDBO, DLZUC150, and DLZUC350, 

Hex Dec Name Ln Description 

DLENGTH 2 Length of record 

2 2 DSPACE 2 Zero 

4 4 DLOGCODE 1 Log record ID 

X*50' = Data base log record 

X"51* = Old copy of a replaced segment 
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DLOGFLGl 



DL0GFLG2 



Bits 

0-3 

4-7 



Bits 
0=X 



Task ID 

Count of FSE records present 



Index maintenance record 
1-3=001 Physical replace 
=010 Physical delete 
=100 Physical insert 
=110 Logical delete 
=000 POINTER maintenance record 
=111 Counter Maintenance 



u=l 


Last record of a change group 


5=0 


ESDS data set 


=1 


KSDS data set 


6=0 


HS organization 


=1 


HD organization 


7=1 


New block call 


1 

Bits 




o=i 


REPL call 


1=1 


DLET call 


2=1 


ISRT call 









5 








6=1 








7=1 


8 


8 


DIDLN 


2 


A 


10 


DOFFSET 


2 


C 


12 


CDATALN 


2 


E 


14 


CCCODE 


2 


10 


16 


DPGMNAME 


8 


18 


24 


DDBDNAME 


8 


20 


32 


DDSID 


1 


21 


33 


DDATE 


3 


24 


36 


DTIME 


4 


28 


40 


DSEQ 


2 


2A 


42 


EDATAID 


Var 



3S4=00 Modification by control region 
=01 Modification by message or batch 

message program 
=10 Modification by batch program 

Reserved 

First log record of a segment 

Last log record of a segment 

Length of DDATAID field 

Data offset from beginning of block 

Length of DDATA field 

DL/I completion code 

PSB name 

Data base name from the DMB 

File identification within the DMB 

Date - YYDDDF 

Time - HHMMSSOF 

Sequence stamp 

KSDS - KSDS prime key 

ESDS - Relative block number 



POINTER maintenance record (DDATALN is set to H"4*) 
DDATA 4 New pointer value 
4 old pointer value 
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LOGICAL DELETE record (DDATALN is set to H"2') 

DDATA 2 Segment code and new delete byte 
2 Segment code and old delete byte 

PHYSICAL INSERT record (DDATALN is set to segment length) 

DDATA V* New segment data 

DFSEOFF 2 Offset to FSE 

DFSE 4 New FSE value 

If more than one FSE changes, DFSEOFF and 
DFSE are repeated for each additional one. 

PHYSICAL DELETE record (DDATALN is set to segment length) 

DDATA V* Old segment data 

DFSEOFF 2 Offset to FSE 

DFSE U New FSE value 

If more than one FSE changes, DFSEOFF and 
DFSE are repeated for each additional one. 

PHYSICAL REPLACE record (DDATALN is set to segment length) 

DDATA V* Old segment data - DLOGCODE = X'51" 

New segment data • DLpGCODE = X'50' 

V* = varies with segment length 

DCOUNTER The last four bytes of every log record contain the 
log record sequence number. Numbers are incremented 
by one. The sequence number of the first record is 
one. 

DATA RECORD (INPUT) 

This record is used as input to module DLZURRLO. 

Hex Dec Name X^n Description 

Unnamed 4 ESDS RBA identifier; 

unused if KSDS 

Character I if KSDS; O if ESDS 

Reserved 

KSDS or ESDS physical record image. The 
first four bytes contain the VSAM 
relative byte address (RBA) of the next 
ESDS record containing overflow dependent 
segments for the root segment. The RBA 
is zero if no (more) ESDS records follow. 
The last byte of the data record contains 
a special physical code X'O*. If the 
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4 


4 


DSIDIN 


1 


5 


5 


Unnamed 


3 


8 


8 


Unnamed 


V 



data base contains only HISAM root 
segments and ACCESS=SHISAM, the physical 
code and RBA do not exist. 



DATA RECORD (OUTPUT) 

This output record is used by module DLZURUPO. 
Hex Dec Name Ln Description 
CONTOUT 4 



4 


4 


DSIDOUT 


1 


5 


5 


BLNKDOUT 


1 


6 


6 


DSRECLN 


2 


8 


8 


DATA 


Var 



ESDS RBA identifier; unused 
if KSDS 

Character I if KSDS; if ESDS 

(Not used) 

Record size + prefix length 

KSDS or ESDS physical record image. The 
first four bytes contain the VSAM 
relative byte address (RBA) of the next 
ESDS record containing overflow dependent 
segments for the root segment. The RBA 
is zero if no (more) ESDS records follow. 
The last byte of the data record contains 
a special physical code X'O'. If the 
data base contains only HISAM root 
segments and ACCESS=SHISAMr the physical 
code and RBA do not exist. 



DATE/TIME TABLE 

This record is used by modules DLZUCCTO and DLZUC150.. 

Description 

Blank. Used as table delimiter 



Contains a or 1 to denote routing 
for the data base in this table 

Contains flags as follows: 

Name Bit Meaning 

TABF3N Record to LOGOUT if 1 

TABF3DT 1 Purge date specified 

Reserved for future use 

Reserved for future use 

Contains date/time ^ if specified 



Hex 


Dec 


Name 


Ln 








TABFLAGl 


1 


1 


1 


TABFLAG2 


1 


2 


2 


TAEFLAG3 


1 



3 


3 


TABFLAG4 


1 


4 


4 


TABFLAG5 


4 


8 


8 


TAEFLAG6 


8 



DELETE WCRK AREA 

This record is used by module DLZDLDOO, 
Hex Dec Name Ln Description 
DLTRSCID 7 



Resource ID for PI queuing 
(must be first in WKA) 
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4 
4 
8 
C 
10 



10 
14 
18 
IC 
20 
22 
24 

28 
2C 
30 
34 

36 
38 
38 

3C 

40 
44 






DLTRSCRB 


4 J 


4 


DLTCHN 


8 ( 


4 


DLTPWAID 


4 


4 


DLTRSCID 


3 ] 


4 


DLTDMBNO 


2 ] 


8 


Unnamed 


4 


12 


DLTWANXT 


4 i 


16 


DLTWASW 


1 1 




Flaq Name 


Hex Code 




DLTWSBEG 


01 




DLTERFLG 


02 




DLTLRFLG 


04 




DLTVRFLG 


08 




DLTSCFLG 


10 




DLTIMFLG 


20 


16 


DLTWAPRI 


4 ; 


20 


DLTDMB 


4 ] 


24 


DLTSPSDB 


4 j 


28 


DLTLPSDB 


4 J 


32 


DLTSLEV 


2 J 


34 


DLTTEMPH 


2 J 


36 


DLTESECL 


4 1 


40 


DLTEDMB 


4 ] 


44 


DLTEPSDB 


4 ] 


48 


DLTERBN 


4 ] 


52 


DLTIiPKOF 


2 ( 


54 


DLTWASZ 


2 : 


56 


DLTMID 


36 


56 


DLTPLT 


4 J 


60 


DLTCLT 


4 

4 


64 


DLTNLT 


4 1 


68 


DLTTEMPl 


4 \ 



RBA portion of resource ID 

Chain (prior content PSTWRKDl-2) 

ID of current work area; DMB 
number, ACB number, and work 
area sequence number 

DMB/ACB number part of resource ID 

DMB number 

Prior scan exit address (PSTWRKD2) 

Address of next WKA 

Switch 

Meaning 



First work area in work space 
R*0 record flag required 
R-0 record flag required 
due to LP LC counter update 
Verifies are required 
Pre*scan was done 
Index maintenance was done 

Address of prior WKA 

DMB address of this WKA 

Scan start PSDB 

Scan end PSDB 

Level at which scan started 

Half word temporary save area 

Secondary list address 
causing exit 

Exit DMB address 

Prior DMB's PSDB (exit point) 

Exit RBN 

Offset from DLTWA to 
concatenated key 

Length of this work area 

•Middle* of WKA 

Save area for prior L/C 
on twin chain 

Save area for current L/C 
on twin chain 

Save area for next L/C 
on twin chain 

Working register save area (R6) 
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U8 


72 


DLTTEMP2 


4 1 


4C 


76 


DLTTEMP3 


4 1 


50 


80 


DLTTEMP4 


4 ] 


5U 


84 


DLTLEVEL 


8 


54 


84 


DLTRFLG 


1 






Flaq Name 


Hex Code 




DLTSVPP 


01 






DLTSVPC 


02 






DLTLDO 


03 






DLTKEYSW 


04 






DLTTEFLG 


08 


5a 


84 


DLTPSDB 


4 ( 


58 


88 


DLTRBN 


4 ] 


5C 


92 


DLTLEVLN 


8 ] 


64 


100 


DLTMIDLN 


36 


88 


136 


DLTWALN 


92 J 



Working register save area (R7) 
Working register save area (R8) 
Working register save area (R9) 
Level information beginning 
Flag byte 
Meaning 



Save segment and parents 

Save segment and physical children 

Logical delete only 

Key stored for this level 

Temporary lock enqueue was done 

Current PSDB this level 

REN of segment this level 

Length of level information entry 

Length of last half work area 

Length of basic delete work area 



DELETE WORK SPACE PREFIX 

This record is used by module DLZDLDOO, 



Hex 


Dec 


Name 


Ln 








DLTBLKNM 


4 


4 


4 


DLTBUFFA 


4 


8 


8 


DLTNXTWS 


4 


C 


12 


DLTPRIWS 


4 


10 


16 


DLTSIZWS 


4 


14 


14 




4 



Ln Description 



Block number of buffer (from 
PSTBLKNM) 

Address of buffer prefix 
(from PSTBUFFA> 

Address of next work space 

Address of prior work space 

Usable size of this space 

Reserved 



DL/I CONTROL RECORD 

This record is used by module DLZDLOCO. 



Hex 


Dec 


Name 


Ln 








RECDATCR 


3 


3 


3 


RECTIMCR 


5 


8 


8 


RECBATRE 


3 


B 


11 


RECTIMRE 


5 


10 


16 


RECDATER 


3 



Description 

creation date • YYDDDF 

Creation time - HHMMSSTHOF 

Recovery date - YYDDDF 

Recovery time - HHMMSSTHOF 

Reserved 
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13 


19 


18 


24 


IC 


28 


IE 


31 


22 


34 


2f* 


36 


28 


40 


2C 


44 



RECTIMER 


5 


RECNXRBA 


4 


RECDOS 


3 


RECVERS 


3 


RECPTF 


2 


RECLKSDS 


4 


RECLESDS 


4 


RECORGAN 


1 



Reserved 

Not used 

DL/I component code (DLZ) 

Version and release level 

PTF number 

KSDS record length (HISAM only) 

ESDS record length 

Data base organization 

Name Character 



RECHDAM 

RECHIDAM 

RECHISAM 



D 

I 
S 



Meaning 
HDAM 
HID AM 
HISAM 



2D 



45 



Var 



Reserved to end of control interval 



DUMP HEADER RECORD 




This record is used by 


moi 


Hex 


Dec 


Name 


Ln 








DHSAMCTL 


1 


1 


1 


DUMPID 


1 


2 


2 


DCENOOUT 


2 


4 


4 


DUMPDBDN 


8 


C 


12 


DIDDNOUT 


8 


14 


20 


DDATEOUT 


4 


18 


24 


DTIMEOUT 


4 


IC 


28 


DODDNOUT 


8 


24 


36 


DIBLKOUT 


2 


26 


38 


DIRECOUT 


2 


28 


40 


DOELKOUT 


2 



2A 42 DORECOUT 



2C 44 DKEYLEN 



modules DLZUDMPO and DLZURDBO. 

Description 

Reserved for future use 

Character D 

Reserved for future use 

Name of the DMB devised from the Data 
Base Description (DBD) 

Contains the name of the key sequenced 
data set if this is dump of a KSDS 
data set 

Julian date in packed decimal - OOYYDDDF 

Time in packed decimal • HHMMSSOF 

Contains the name of the entry sequenced 
data set if this is dump of an ESDS 
data set 

Contains KSDS control interval size if 
this is dump of KSDS data set 

Contains KSDS record length if 
dump of KSDS data set 

Contains ESDS control interval size if 
this is dump of ESDS data set 

contains ESDS record length if 
dump of ESDS 

contains KSDS key length if 
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dump of KSDS 



2E 46 



30 48 



DKEYPOS 



DDEDORG 



Contains KSDS relative key 
positive if dump of KSDS 

Data set organization code 



DUMP RECORD PREFIX 

This record is used by module DLZUDMPO, 



Hex 


Dec 


Name 


Ln 








COUNTOUT 


4 


a 


4 


DSIDOUT 


1 


5 


5 


Reserved 


1 


6 


6 


DSRECLN 


2 


8 


8 


DATA 


Var 



Description 

ESDS RBA identifier; record count if KSDS 

Character I if KSDS; O if ESDS 

Reserved for future use 

Record size + prefix length 

Physical record image 



FILE OPEN RECORD 

This record is used by modules 
and DLZUC350. 



DLZRDBLO, DLZRDBLl, DLZLOGPO, DLZUC150, 



Hex 


; Dec 


Name 


Ln 


Description 








DLENGTH 


2 


Length of record 


2 


2 


DSPACEl 


2 


Binary zero 


4 


4 


DLOGCODE 


1 


Record type code - X'2F' 


5 


5 


DLOGFLGl 


2 


Data set organization 
X'OO* = ESDS 
X"'04'' = KSDS 


7 


7 


DSPACE2 


9 


Binary zero 


10 


16 


DPGMNAME 


8 


Data set filename (ACB) 


18 


24 


DDBDNAME 


8 


DMB name 


20 


32 


DDSID 


1 


DSGACBNO (2 if HISAM 
ESDS; otherwise 1) 


21 


33 


DDATE 


3 


Binary zero 


24 


36 


DTIME 


4 


Binary zero 


28 


40 


DC0UNT2F 


4 


Log record sequence number 



HEADER RECORD (INPUT) 

This record is used as input for module DLZURRLO. 
Hex Dec Name Ln Description 
Unnamed 1 X"FF" header/statistic record identifier 
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1 


1 


IDIN 


1 


2 


2 


RECLNOUT 


2 


4 


U 


DBDNAME 


8 


C 


12 


DDNAMEI 


8 


14 


20 


Unnamed 


4 


18 


24 


Unnamed 


4 


IC 


28 


DDNAMEO 


8 


24 


36 


ELKSIZEI 


2 


26 


38 


LRECLI 


2 


28 


40 


ELKSIZEO 


2 


2A 


42 


LRECLO 


2 


2C 


44 


Unnamed 


1 


2D 


45 


KEYLENGI 


1 


2E 


46 


KEYPOSI 


2 



Character R 

Size of output record r including 
prefix 

Name of the DMB derived from the 
Data Base Description (DBD) 

Name of key sequenced data 
set (KSDS) 

Julian date in packed decimal- OOYYDDDF 

Time in packed decimal-HHMMSSOF 

Name of entry sequenced data set (ESDS) 

KSDS record length * number of 
records/control interval 

KSDS record length 

ESDS record length * number of 
records/control interval 

ESDS record length 

0; (Not used) 

KSDS key length 

KSDS relative key position 



HEADER RECORD (OUTPUT) 
This record is used by 
Hex Dec Name 









HSAMCTRL 


X 


1 


1 


IDOUT 


1 


2 


2 


RECLNOUT 


2 


4 


4 


DBDOUT 


8 


C 


12 


IDDNOUT 


8 


14 


20 


DATEOUT 


4 


18 


24 


TIMEOUT 


4 


IC 


28 


CDDNOUT 


8 


24 


36 


IBLKSOUT 


2 


26 


38 


ILRECOUT 


2 


28 


40 


GBLKSOUT 


2 



module DLZURULO, 
Ln Description 

X«FF* header/statistic record identifier 

Character R 

Size of output record, including prefix 

Name of the DMB derived from the Data 
Base Description (DBD) 

Name of key sequenced data set (KSDS) 

Julian date in packed decimal- 00 YYDDDF 

Time in packed decimal-HHMMSSOF 

Name of entry sequenced data set (ESDS) 

KSDS record length * ntimber of 
records/control interval 

KSDS record length 

ESDS record length * number of 
records/control interval 
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2A 


U2 


CLRECOUT 


2 


2C 


44 


IKEYLENG 


2 


2E 


46 


IKEYPOS 


2 



ESDS record length 

KSDS key length 

KSDS relative key position 



INDEX MAINTENANCE WORK AREA 
This record is used by module 



Hex 


Dec 


Name 


Ln 








XSAVDSGA 


4 


U 


4 


XSAVPCB 


4 


8 


8 


XSAVUSER 


4 


C 


12 


XSAVIQPR 


4 


10 


16 


XPHYSPP 


4 


14 


20 


XWORKPCB 


4 


18 


24 


XWORKSAA 


4 


IC 


28 


XWORKFNC 


4 


20 


32 


XDPSDBAD 


4 


24 


36 


XDSECLST 


4 


28 


40 


XDRID 


8 


28 


40 


XDRBAPTR 


4 


2C 


44 


XDDMBACB 


4 


30 


48 


XNRID 


8 


30 


48 


XNRBAPTR 


4 


34 


52 


XNDMBACB 


4 


38 


56 


XSPSDBAD 


4 


3C 


60 


XSSECLST 


4 


40 


64 


XSRBAPTR 


4 


44 


68 


XNPSDBAD 


4 


48 


72 


XDSDBAD 


4 


4C 


76 


XSSDBAD 


4 


50 


80 


XPROT 


2 



DLZDMXTO. 

Description 

Save location for caller's DSG 

Save location for caller's PCB 

Save location for caller's I/O area 

For caller's call list address 

save location for physical 
parent pointer. 

Save location for XMAlNTs PCB 

Address of SSA built by DLZDXMTO 

XMAINTs function code for Call 

Address of PSDB of indexed segment 

Secondary list of indexed segment 

Indexed segment ID for enqueue 

RBA of indexed segment 

DMB and ACB numbers of 
indexed segment 

Indexing segment ID for enqueue 

RBA of indexing segment 

DMB and ACB numbers of 
indexing segment 

PSDB of index source segment 

Secondary list of index source 
segment 

RBA of index source segment 

Address of PSDB of indexing 
segment 

Index target segment SDB address 

Index source segment SDB address 

Length of protected data 
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52 


82 


XRPREFIX 


2 


54 


84 


XSPREFIX 


2 


56 


86 


XNSEGLEN 


2 


58 


88 


XNKEYLEN 


2 


5C 


92 


STACKl 


4 


60 


96 


STACK 2 


4 


64 


100 


STACK3 


4 


68 


104 


XSAVSTC 


1 


69 


105 




1 


6A 


106 


XCALLFUN 


1 



6B 



107 



XTSWITl 



6E 110 
(The rest of 
70 112 
70 112 
72 114 



XWORKPUT 
this record 
XWORKUSR 
XWORKDUM 
XWORKSEG 



Record prefix length 

Segment prefix length 

Length of indexing segment 

Sequence field length of index 
pointer segment 

Return address for first level 
subroutine 

Return address for second level 
subroutine 

Return address for third level 
subroutine 

Save status code 

♦Reserved* 

Call attributes byte 



Flag 


Hex 




Name 


Code 


Meaninq 


ISLOAD 


80 


Load mode 


ISASRT 


40 


ASRT call 


ISDLET 


20 


DLET call 


ISISRT 


10 


ISRT call 


ISREPL 


08 


Function is replace 


ISUNLD 


02 


UNLD call 


Temporary 


switch 




Flag 


Hex 




Name 


Code 


Meaninq 


XNOSUPR 


80 


No suppression for 
this index 


XOLDSUPR 


40 


Old segment was 
suppressed 


XPTRONLY 


20 


PTR to XDS only, no 
CONCAT key 


XISPRIM 


10 


A primary index 
was found 


XNULLFLD 


01 


Null value 
suppression 


XEXITRT 


02 


Exit routine for 
suppression 


XDATACHN 


04 


XNS changed in a 
replace call 



2 Begin of record for load 

starts on a fullword boundary) 

XMAINTs I/O area for call 

2 Reserved 

Start of segment 
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72 



114 



XWORKCD 



Segment code 











Flag Hex 

Name Code Meaninq 

XNSEGCOl 01 segment code of 

indexing segement 


73 


115 


XWORKDEL 


1 


Delete byte in indexing segment 


74 


116 


XWORKPTR 


4 


pointer in indexing segment 


78 


120 


XWORKKEY 


VAR 


Area for key in indexing segment 



(The SSA for the XMAINT call to the analyzer is created behind the key) 



LIST 
This 
Hex 
IC 

IE 



CONTROL BLOCK 

record is used by module DLZUSCHO, 



Dec 
28 

30 



20 


32 


22 


34 


24 


36 


28 


40 


2C 


44 


This ^ 


^7alu 


30 


48 



Name Ln Description 

ENTLNGTH 2 The lengthy in bytes i^ of each entry 
in the list 

COMPLOC 2 The offset from the beginning of 
each entry to the key field 

COMPLNG 2 The length of the key field 

NUMENT 2 The current number of entries in 
the list 

CHAINLOC 4 The location of the first of a chain of 

core blocks containing sorted list entries 

CHBACK 4 The location of the last block in the 
chain 

ENTBLKSZ 4 The size of each core block used for list 
entries (includes the chaining fields), 
value is calculated as follows: ENTBLKSZ = 16*ENTLNGTH+8 



LASTLO , 
LASTHI, 
LASTMD, 
ENTLOC 



12 work areas used by INSRCH and 
LOCSRCH 



OUTPUT RECORD CONTAINING SEGMENT PREFIX 

This DSECT (lOAREA) defines the format of the unloaded data base records 
used by the HE reorganization unload/reload utilities. 

Description 

Segment code for this segment 

HSAM delete flag; always X«80* 

to denote HD Reorganization Unload 

Utility 

Length of header portion of record 

Length of data portion of record 



Hex 


Dec 


Name 


Ln 








RGUSEGLV 


1 


1 


1 


RGUHSDF 


1 


2 


2 


RGUHDRLN 


2 


4 


4 


RGUSEGLN 


2 
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6 


6 


RGUSEGNM 


8 


E 


14 


RGUSEGDF 


1 


F 


15 


RGUPFCTR 


t\ 


13 


19 


lOTWFOR 


a 


17 


23 


lOTWBACK 


4 


IB 


27 


lOPAR 


a 


IF 


31 


ICOLD 


4 


23 


35 


lOSEG 


Var 



Segment name 
Delete flag of segment 
Counter field of prefix 
Logical twin forward pointer 
Logical twin backward pointer 
Logical parent pointer 
Old location of record 
Variable-length data field 



OUTPUT TABLE RECORD 

This DSECT (DLZUSTAT) defines the format of the statistics table within 
the unloaded data base for HD reorganization unload/reload utilities. 



Hex 

1 

2 
4 



Dec 

1 

2 
4 



Name 

RGUSEGLV 

RGUHSDF 

RGUHDRLN 
RGUSEGLN 



is 

1 

1 

2 

Var 



Field Description of RGUSEGLN 



Hex 


Dec 


Name 


Ln 








SEGNAME 


8 


8 


8 


SMIMCHLD 


4 


C 


12 


SAIMCHLD 


4 


10 


16 


WKIMCHLD 


4 


14 


20 


SMSBCHLD 


4 


18 


24 


SASBCHLD 


4 


IC 


28 


WKSBCHLD 


4 


20 


32 


TSEGTYPE 


4 


24 


36 


SEGLEVEL 


1 


25 


37 


SEGPHYCD 


1 


26 


38 


TABLEND 


2 


26 


38 


TSEGLEN 


2 


28 


40 


STATABSZ 





Description 

Always X'OO" 

X*80* for first table record and 

checkpoint table record 
X*'90» for last table record 

Length 

A table containing one entry for 
each segment type. 



Description 
Segment name 

Maximum immediate children 
Average immediate children 
Working entry for above 
Maximum subordinate children 
Average subordinate children 
Working entry for above 
Total segments for this type 
Segment level 
Segment physical code 
Table end indicator (X*80*) 
Segment length including prefix 
Length of each table entry 
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SHORT SEGMENT TABLE 

This record is used by module DLZURULO. 



Hex 


Dec 


Name 


Ln 








SEGMDSNO 


1 


1 


1 


SEGMCODE 


1 


2 


2 


PARSEGCD 


1 


3 


3 


SEGMLEVL 


1 


4 


a 


Unnamed 


2 


6 


6 


SEGMLENG 


2 



Description 

Data set number (not used by DLZURULO) 

Physical segment code 

Physical code of this segment's parent 

Segment hierarchical level 

Number of logical children and fields 
(not used by DLZURULO) 

Segment length, including prefix 



SORTED LIST BLOCK 

This record is used by module DLZUSCHO. 

Hex Dec Name Ln Description 



ENCNT 



CHAIN 3 



BKCHAIN U 



ENTRIES Var 



The count minus one of the current number 
of entries in this block (currently, the 
maximum value for count is 16) 

The location of the next sorted list 
block in the chain. In the last block, 
this field contains binary zeros. 

The location of the preceding sorted list 
block in the chain. In the first block 
on the chain, this field contains the 
location of the CHAINLOC fiel^l in the 
list control block- 

Up to 16 full entries in sorted order. 

Note: All blocks are the same size 
regardless of the number of 
entries contained. Unused space 
at the end of a block is not 
zeroed. 



SSA FOR GU CALL BY KEY 

This record is used by module DLZURGUO. 



Hex 


Dec 


Name 


in 








KEYSEGNM 


8 


8 


8 


KEYCODE 


2 


A 


10 


KLEFTPAR 


1 


B 


11 


KEY 


1-236 


«. 


«. 


KRITEPAR 


2 



Description 

Name of segment to be retrieved 

•♦C - command code 

• ( ' - left parenthesis 

key to be retrieved 

• ) ■ - right parenthesis 
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SSA FOR GU CALL BY RBA 

This record is used by module DLZURGUO. 



Hex 


Dec 


Name 


Ln 








RBASEGNM 


8 


8 


8 


RBACODE 


2 


A 


10 


RLEFTPAR 


1 


B 


11 


RBA 


4 


F 


15 


RRITEPAR 


1 



Description 

Name of segment to be retrieved 

"♦T* • command code 

* ( • - left parenthesis 

RBA to be retrieved 

*)• • right parenthesis 



SSA FOR THE XMAINT CALL TO THE ANALYZER 
This record is used by module DLZDXMTO. 



Hex 


Dec 


Name 


Ln 








XSEGNAME 


8 


8 


8 


XCOMMCOD 


2 


A 


10 


XLEFTPAR 


1 


B 


11 


XKEYVALU 


VAR 



Description 

Name of index pointer segment 

**X' - command code 

■ ( • - left parenthesis 

Key value followed by right 
parenthesis • ) ' 



STATISTICS RECORD 

This record is used by modules DLZURULO and DLZURRLO. 



Hex 


Dec 


Name 


Ln 








Unnamed 


1 


1 


1 


Unnamed 


1 


2 


2 


Unnamed 


2 


4 


U 


Unnamed 


8 


C 


12 


Unnamed 


8 


14 


20 


Unnamed 


8 


IC 


28 


Unnamed 


Var 



Description 

X*FF* header/statistics record identifier 

Character S 

Number of segment types in data set 
group (16 bytes per segment type) 

Name of the DMB derived from the DBD 

KSDS filename 

ESDS filename 

A 16-byte table entry for each 
segment type in the data base 



DESCRIPTION OF VARIABLE LENGTH LAST FIELD OF STATISTICS RECORD WHEN USED 
AS OUTPUT FOR DLZURULO, 

Hex Dec Name Ln Description 

SEGNAME 8 Segment name 

8 8 TSEGTYPE 4 Total number of segments unloaded 
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c 


12 


SEGLEV 


1 


D 


13 


SEGPCD 


1 


E 


14 


TSEGLN 


2 



Segment level 

Segment physical code 

Segment length , including prefix 



DESCRIPTICN OF VARIABLE LENGTH LAST FIELD OF STATISTICS RECORD WHEN USED 
AS INPUT FOR DLZURRLO, 

Description 

Segment name 

Total number of segments unloaded 

Segment level 

Segment physical code 

Segment length, including prefix 



Hex 


Dec 


Name 


Ln 








SEGNAME 


8 


8 


8 


TOTSEG 


4 


C 


12 


SEGLEV 


1 


D 


13 


SEGPCD 


1 


E 


14 


SEGLN 


2 


WORK 


FILE 1 






This 


record 


is used as 


the in] 


Hex 


Dec 


Name 


Ln 








ALENGTH 


2 


2 


2 


ASPACE 


2 


4 


4 


ALTYPE 


1 



Description 

Length of work file 1 record 

Two bytes of zeros 

Type of input record 



Flag 




Hex 








Name 




Code 


Meaninq 




ATYPEOO 




00 


Type 


00 


record 


ATYPEOl 




01 


Type 


01 


record 


ATYPE02 




02 


Type 


02 


record 


ATYPE03 




03 


Type 


03 


record 


ATYPEIO 




10 


Type 


10 


record 


ATYPE20 




20 


Type 


20 


record 


ATYPE30 




30 


Type 


30 


record 


ATYPE40 




40 


Type 


40 


record 


DL/I Record 










Type 


Use 











00 Generated once for each use 
of a segment as a logical 
parent 

10 Generated once for each use 
of a segment as a logical 
child* 

20 Generated when a segment used 
as a logical child contains 
logical twin forward pointers 
and when the logical twin 
chain cannot be resolved by 
using the logical child's 
sequence field. 

30 Generated when a segment used 
as a logical child contains 
logical twin backward 
pointers and when the logical 
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ALFLAGl 



ALFLAG2 



ALFLAG3 



8 


8 


ALEVTTR 


4 


C 


12 


ALPDBNAM 


8 


14 


20 


ALPSEQ 


1 


15 


21 


ALPCKEY 


4 


15 


21 


ALPOADDR 


4 


19 


25 


ALCDBNAM 


8 


21 


33 


ALCSEG 


1 



40 



Flag 1 



twin chain cannot be resolved 
by using the logical child's 
sequence field. 
Generated once for each time 
a segment is indexed 



Meaning 



Flag 
Name 


Hex 
code 


ALILOAD 


80 


ALISEQ 


40 


ALISCAN 


20 


ALILPCK 


10 


ALISQUN 


08 


ALISEQA 


04 


ALICONST 


02 


ALISYMB 


01 



AL1T23 



01 



Set to 1 if ISRT; 
set to if ASRT 
Set to 1 if 
sequence field is 
present 
Set to 1 if 
record produced 
by scan program 
(DLZURGSO) 
Set to 1 if 
logical parent 
concatenated key 
is prsent 
Sequence field is 
unique 

Set to 1 if root 
sequence field is 
present 

Constant present 
in key 
For type 40 
record; pointer 
is symbolic 
Set to 1 if 
logical twin 
pointers are to 
be resolved by 
type 20 and 30 
records 



Executable length of sequence field, 
if present 

Executable length of indexed field , 
if present, or executable length of 
logical parent concatenated key, if 
present 

Value of LEVTTR after BYLCT 

Data base of logical parent 

Segment code of logical parent 

Logical parent's concatenated key 

Logical parent's old address 

Data base of logical child 

Segment code of logical child 



***FOR TYPE 00 AND 01 RECORDS*** 
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22 



3i* 



ALCFL 



26 


38 


ALTOOOl 


1 


27 


39 


ALPLSGOF 


2 


29 


Ul 


ALCCTR 


4 


2D 


as 


ALPDCB 


1 



(TYPE 01 RECORD ENDS HERE) 
2E 46 ALPSEQA 

♦♦♦FOR TYPE 02 RECORDS^^^ 
22 34 ALCOAD 
26 38 ALT02 
♦♦♦FOR TYPE 10, 20, AND 30 

22 34 ALFIL 

23 35 ALCSEQ 
23 35 ALCM 



Old value of logical child first or 
logical child last pointer 

X'OO' or X*01' 

Value of logical parent's LEVSEGOF 
after BYLCT 

Old value of counter field 

DCB NUMBER FOR LP 



Sequence field and length for root of 
segment 



4 Logical child old address 

1 X«02" 

RECORDS^^^ 



27 39 ALT123 1 

28 40 ALCDCB 1 

29 41 ALCSEQA 1 

♦♦♦FOR TYPE 40 RECORDS^^^ 

8 8 AILCOA 4 

C 12 AIDBNAM 8 

14 20 AIFLDVAL 1 

14 20 AISC 1 

15 21 AISEQ 1 



15 



21 



AISEGN 



X"FF" 

Logical child sequence field 

If LC has LT pointers and a non- 
unique sequence field and is being 
reloaded, ALCM contains the 
following : 

For Type 10 • LC"s old address 
For Type 20 • LC's old LT forward 
pointer 

For Type 30 • LC's old LT backward 
pointer 

otherwise, ALCM contains the value of 
LEVSEGOF, with high order bit set to 
one 

X"10", or X'20«, or X«30* 

DCB number for LC 

Sequence field and length for root of 
segment 



Logical child old address 

Index data base name 

Indexed field value (variable length) 

Index segment's segment code 

Index segment's sequence code (if 
second level and present) 

Index segment's name (For level 2 
index segments) 
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15 


21 


AIFLDN 


8 


ID 


29 


AISDBN 


8 


25 


37 


AISSC 


1 


26 


38 


AILCNA 


4 


2A 


42 


A I DATA 


1 



Indexed field name (For level 1 index 
segments) 

Indexed segment's data base name 

Indexed segment's segment code 

Logical child new address 

Indexed segment data (for source 
fields) 



***FOR TYPE UO RECORD USED AS SSA AND I/O AREA*** 



9 


9 


AISSFN 


8 


11 


17 


AISSAID 


3 


14 


20 


AISFLDV 


1 



14 



20 



AISSEQ 



21 


33 


AXSC 


1 


22 


34 


AXDDIR 


3 


25 


37 


AXLCNA 


4 


29 


41 


AXDATA 


1 


WORK 


FILE 3 







Index segment name or field name 

SSA ID and command code 

Indexed segment's indexed field value 
(variable length) 

Index segment's sequence field value 
(variable length) 

Segment code of indexed segment 

DDIR address of indexed data base 

Logical child new address 

Index source data 



This record is the output file from DLZURGIO and is used as the input 
file for DLZURGPO. 



Hex 

2 
4 



Dec 

2 
4 



Name 
CLENGTH 
CSPACE 
CTYPE 



CFLAGl 



Ln Description 

2 Length of work file record 

2 Zeros 

1 Work file record type 



Flag 


Hex 






Name 


Code 


Meaninq 




CTYPEO 


00 


Type 00 


record 


CTYPEOl 


01 


Type 01 


record 


CTYPEl 


10 


Type 10 


record 


CTYPE2 


20 


Type 20 


record 


GTYPE3 


30 


Type 30 


record 


CTYPE4 


40 


Type 40 


record 



Origin of record 

Flag Hex 

Name Code 
CFltiOAD 



Meaninq 



80 Flag on-initial load; 

Flag off-reorganization 
CFISCAN 20 Record produced by scan 
CFILPCK 10 Logical parent con- 
catenated key if present 
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CFISEQA 04 
CFITOF 02 
CF1T23 01 



** ♦FIELDS IN 


TYPE RECORD^^^ 


6 


6 


CLCDBNO 


8 


E 


14 


CLCSEGNO 


1 


F 


15 


CLPSEGNO 


1 


10 


16 


CLCFRST 


4 


14 


20 


CLCDLST 


4 


18 


24 


CLCDCNT 


4 


IC 


28 


CLPDBNO 


8 


♦♦♦FIELDS IN 


TYPE 1 RECORD^^^ 


6 


6 


CLPDBNl 


8 


E 


14 


CLPSEGNl 


1 


F 


15 


CLCSEGNl 


1 


10 


16 


CLTFWD 


4 


14 


20 


CLTBKWD 


4 


18 


24 


CLPNWADl 


4 


IC 


28 


CLCDBNl 


8 


24 


36 


CDCB 


1 


25 


37 


CFIL 


1 


26 


38 


CLEVTTR 


4 


2A 


42 


CLEVSGOF 


2 


2C 


44 


CLCCNT 


4 


30 


48 


CLSEQ 


1 



Set to 1 if root 
sequence field present 
Set to 1 if matching 
type 10 record found 
Set to 1 if logical 
twin pointer is to 
be resolved by type 
20 and 30 records 



Logical child data base name 
Logical child segment code 
Logical parent segment code 
Logical child first pointer 
Logical child last counter 
Logical child delta counter 
Logical parent data base name 

Logical parent data base name 
Logical parent segment code 
Logical child segment code 
Logical twin forward pointer 
Logical twin backward pointer 
Logical parent new address 
Logical child data base name 
DCB number 

Contents of LEVTTR after BYLCT 

Contents of LEVSEGOF after BYLCT 
(high order bit of CLEVSGOF is 
set to 1 if segment is not in HD) 

Old value of counter field 

Root sequence field 
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SECTION 6 : DIAGNOSTIC AIDS 



This section contains two tables that cross-reference DL/I messages and 
DL/I status codes with the module (s) that originate them. 

Additional diagnostic information can be found in the DL/I DOS/VS 
Diagnostic Guide ^ SH24-5002. 
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SYSTEM MESSAGE/MODULE CROSS REFERENCE 



This table cross-references message numbers (in numeric order) with the 
module (s) that can cause that message to be issued. In addition, if the 
message is described in the module HIPO diagram in Section 2, the HIPO 
figure number is also showno The modules are described in Section 3 of 
this publication. The messages are described in Chapter 1 of "DL/I 
DOS/VS Messages and Codes", 



Message 




Figure 


Number 


Module 


Number 


DLZOOII 


DLZBNUCO 


2-a,2 


DLZ002I 


DLZBNUCO 


2-4.2 


DLZ003I 


BLZBBLEO 




DLZ004I 


BLZBBHOO 






BLZRBBLO 


2-16.7 


DLZ005I 


BLZBBHOO 




DLZ006I 


BLZOLIOO 


2-5.4 


DLZ007I 


BLZBSEHO 
BLZBXMTO 


2-38 


DLZ008I 


BLZRRCOO 


2-3o9 


DLZ009I 


BLZRRCOO 


2-3o8 


DLZOIOA 


BLZRRCOO 






BLZMPIOO 


2-21.1 


DLZOllI 


BLZRRCOO 


2-3.. 2 


DLZ012I 


BLZMPIOO 


2-21.1 




BLZRRCOO 


2-3.4, 2-3.7, 2-3.9 


DLZ013I 


BLZOLIOO 


2-5.3 


DLZOiaA 


BLZRRCOO 






BLZMPIOO 


2-21.1 


BLZ015I 


BLZRRCOO 


2-3.3, 2-3.9 


DLZ016I 


BLZBLOCO 




DLZ017I 


BLZRRCOO 


2-3.7 


DLZ018I 


BLZRRCOO 


2-3.7 


DLZ019I 


BLZRRCOO 


2-3»9 


DLZ020I 


BLZBLOCO 


2-14.1 




BLZRBBLO 


2-16.1 


DLZ021I 


BLZBLOCO 






BLZRBBLO 


2-16.6 


BLZ022I 


BLZBLOCO 




DLZ023I 


BLZBLOCO 


2-14.1 


DLZ02m 


BLZBLOCO 




DLZ025I 


BLZBLOCO 


2-14«l 


DLZ026I 


BLZRRCOO 


2-3.8 


DLZ027I 


BLZBLOCO 


2-14.1 


DLZ028I 


BLZBLOCO 


2-14.1 


DLZ029I 


BLZOLIOO 


2-5.3, 2-5.9 


DLZ030A 


BLZOLIOO 


2-5.8 


DLZ031I 


BLZOLIOO 


2-5«l 


DLZ0.32A 


BLZOLIOO 
BLZRBBLl 


2-5«4 


DLZ033I 


BLZOBP 


2-6.15, 2-6.16 


DLZ034I 


BLZOLIOO 


2-5„l 


DLZ040A 


BLZOLIOO 




DLZOail 


BLZOLIOO 




CLZ042I 


BLZOLIOO 


2-5«2 


DLZ043I 


BLZOLIOO 


2-5«2 


DLZOUai 


BLZOLIOO 


2-5«2 


DLZ045I 


BLZOLIOO 


2-5«3 


DLzoaei 


BLZOLIOO 


2-5.3 
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Message 




Figure 






Number 


i Module 


Number 






DLZOUTI 


1 DLZOLIOO 


2-5.3 






DLZ0U8I 


1 DLZOLIOO 


2-5.3 






DLZ049I 


DLZOLIOO 


2-5^3 






DLZ050I 


DLZOLIOO 


2-5ol 






DLZ051I 


1 DLZOLIOO 


2-5.1 






DLZ052I 


DLZOLIOO 


2-5,5 






DLZ053I 


DLZOLIOO 


2-5.5 






DLZOSUI 


DLZOLIOO 


2-5.5 






DLZ055I 


DLZOLIOO 


2-5.4 






DLZ056I 


DLZOLIOO 


2-5o4 






DLZ057I 


DLZOLIOO 


2-5.5 






DLZ058I 


DLZOLIOO 


2-5.6, 


2-5.7 




DLZ060I 


DLZOLIOO 


2-5.9 






DLZ061A 


DLZOLIOO 


2-5.9 






DLZ062I 


DLZODP 


2-6„10 






DLZ063I 


DLZODP 


2-6.2 






DLZ064I 


DLZOLIOO 


2-5.1 






DLZ065I 


DLZODP 


2-6.2 






DLZ066I 


DLZODP 


2-6o2 






DLZ067I 


DLZODP 


2-6„2 






DLZ068I 


DLZODP 


2-6.2 






DLZ069I 


DLZODP 


2-6o2 






DLZ070I 


DLZODP 


2-6.2 






DLZ071I 


DLZOLIOO 


2-5„2 






DLZ072I 


DLZOLIOO 


2-5.3 






DLZ073I 


DLZOLIOO 


2-5.3 






DLZ07ai 


DLZOLIOO 


2-5.3 






DLZ075I 


DLZRRCOO 


2-3o9 






DLZ076A 


DLZRDBLO 


2-16.7. 






DLZ077I 


DLZRDBLO 


2-16.1, 


2-16.7 




DLZ078I 


DLZRRCOO 


2-3,9 






DLZ079I 


DLZRDBLO 


2-16.7 






DLZ080I 


DLZMSTPO 


2-22 






DLZ081I 


1 DLZMPIOO 


2-2I0I 






DLZ082I 


DLZBPCOO 


2-2O0I, 


2-20.5 






DLZMPCOO 


2-19.2, 


2-19,4, 2-19,5, 


2-19.7, 2-19.8 




DLZMPIOO 


2-21.1, 


2-21,3 




DLZ083I 


DLZMSTRO 


2-18 






DLZ084I 


DLZBPCOO 
DLZMPCOO 


2-20.2, 
2-19.4 


2-24.4 






DLZMPIOO 


2-21.1, 


2-21.3 






DLZODPOl 


2-6.3 






BLZ085I 


DLZMPIOO 


2-21„l 






DLZ086I 


DLZMPCOO 


2-19.7 






DLZ087A 


DLZMPIOO 


2-21.1 






BLZ088I 


DLZMPCOO 


2-19.1 






DLZ089I 


DLZMPIOO 


2-21.1 






DLZ090I 


DLZMPIOO 


2-21.2 






BLZ091I 


DLZMPIOO 


2-21.3 






DLZ092I 


DLZMPIOO 


2-21.3 






DLZ093I 


DLZMPCOO 


2-19.2 






DLZ094I 


DLZMPCOO 


2-19.1, 


2-19.8 




DLZ095I 


DLZMPIOO 


2-21.1 






DLZ096I 


DLZMPIOO 


2-21.5 






DLZ097I 


DLZMSTRO 


2-18 






DLZ098I 


DLZMPIOO 


2-21.3 






DLZ099I 


DLZMPIOO 


2-21.1 






BLZIOOI 


DLZMPIOO 


2-21.3 






DLZIOII 


DLZMSTRO 


2-18 






DLZ102I 


1 DLZMPIOO 


2-21.3 
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Message 


1 


Figure 


Number 


1 Module 


Number 


DLZ103I 


DLZEPCOO 


2-20^ 5 


DLZ104I 


DL^MPCOO 


2-19.9 




DLZBPCOO 


2^20o6 


DLZ105I 


DLZRRCOO 






DLZENUCO 


2-a«i 




DLZMPIOO 




DLZ106I 


DLZQUEFO 




DLZ108I 


DLZQUEFO 




1 DLZ120I 


DLZTRACE 




DLZ260I 


DLZBNUCO 


2-a„i 




DLZODP 


2-60IO 


DLZ261I 


DLZBNUCO 


2-4ol 




DLZODP 


2-6.10 


DLZ262I 


DLZRRCOO 


2-3.8 




DLZOHOO 


2-5«9 


DLZ263I 


DLZRRCOO 


2-3„7 


DLZ26UI 


DLZRDBLl 




DLZ266I 


DLZRRCOO 


2-3„7 




DLZOLIOO 


2-5«3 


DLZ2671 


DLZQUEFO 


2-23 


DLZ268I 


DLZDDLEO 




DLZ301I 


DLZUDMPO 
DLZURDBO 






DLZURGLO 


2-32 




DLZURGUO 


2-31 




DLZURRLO 






DLZUC350 






DLZURULO 




DLZ302I 


DLZUDMPO 


2-25 




DLZURULO 


2-29 




DLZURRLO 


2-30 




DLZURCCO 


2-27„l 


DLZ303I 


d;.zudmpo 


2-25 




DLZURULO 


2-29 


DLZ30ai 


DLZUDMPO 


2-25 




DLZURULO 


2-29 




DLZURCCO 


2-27.1 


DLZ305I 


DLZUDMPO 
DLZURDBO 
DLZURULO 




DLZ306I 


DLZURULO 
DLZURDBO 
DLZUDMPO 




DLZ307I 


DLZURULO 


2-29 




DLZUDMPO 


2-25 




DLZURRLO 


2-30 




DLZURCCO 


2-27.1 


DLZ308I 


DLZUDMPO 


2-25 




DLZURULO 


2-29 


DLZ309I 


DLZUDMPO 


2-25 




DLZURULO 


2-29 




DLZURRLO 


2-30 




DLZRDBLO 




DLZ310I 


DLZUDMPO 


2-25 




DLZURULO 


2-29 




DLZURRLO 


2-30 




DLZRDBLO 






DLZURCCO 


2-27.1 


DLZ311I 


DLZURRLO 






DLZURGUO 


2-31 



\ 
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Message 


1 


Figure 


Number 


Module 


Number 


1 


DLZURGLO 
DLZLOGPO 
DLZTPRTO 


2-32 


DLZ312I 


DLZURDBO 




DLZ313I 


DLZURDBO 




DLZ314I 


DLZURDBO 




DLZ315I 


DL?URGUO 


2-31 




DLZURGLO 


2-32 


DLZ316I 


DLZURDBO 
DLZUDMPO 




DLZ317I 


DLZURDBO 




DLZ318A 


DLZURGUO 


2-31 




DLZURGLO 


2-32 


DLZ319I 


DLZURULO 
DLZURGUO 
DLZUDMPO 






DLZURGLO 


2-32 




DLZURDBO 






DLZURRLO 




DLZ320I 


DLZURULO 
DLZURGUO 
DLZUDMPO 




DLZ321I 


DLZURULO 
DLZUDMPO 
DLZURRLO 




DLZ322I 


DLZURDBO 




DLZ323I 


DLZURDBO 




DLZ324I 


DLZURDBO 




DLZ325I 


DLZURDBO 




DLZ326I 


DLZURDBO 




DLZ327I 


DLZURDBO 




DLZ328I 


DLZURDBO 




DLZ330I 


DLZURDBO 




DLZ331I 


DLZURDBO 




DLZ332I 


DLZURDBO 




DLZ333I 


DLZURDBO 




DLZ33UI 


DLZURDBO 




DLZ335I 


DLZURDBO 




DLZ336I 


DLZURDBO 




DLZ337I 


DLZURDBO 




DLZ338I 


DLZURDBO 




DLZ339I 


DLZURDBO 




DLZ340I 


DLZURDBO 




DLZ341I 


DLZURDBO 




DLZ3a2l 


DLZBACKO 




1 


DLZLPCCO 




DLZURCCO 


2-27ol 




DLZUCCTO 




DLZ3U3I 


DLZURDBO 




DLZ3a5I 


DLZURGUO 
DLZUDMPO 
DLZURULO 


2-31 


DLZ346I 


DLZURGUO 




DLZ3a7I 


DLZURGUO 


2-31 


DLZ348I 


DLZURGUO 


2-31 




DLZURGLO 


2-32 


DLZ31I9I 
1 DLZ350I 


DLZURGUO 


2-31 


DLZUDMPO 




DLZ351I 


DLZUDMPO 




DLZ352I 


DLZURGUO 


2-31 
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Message 




Figure 


Number 


Module 


Number 


DLZ353I 


BLZURRLO 




BLZSSai 


BLZURGLO 


2«32 


DLZ355I 


BLZURGLO 


2-32 


DLZ356I 


BLZURRLO 




DLZ357I 


BLZURULO 
BLZUBMPO 




DLZ358I 


BLZURULO 




DLZ360I 


BLZUCCTO 




DLZ361I 


BLZUCCTO 




BLZ362I 


BLZUCCTO 




BLZ363I 


BLZUCCTO 




DLZ36ai 


BLZUCCTO 




DLZ365I 


BLZUCCTO 




DLZ366I 


BLZUCCTO 




DLZ367I 


BLZUCCTO 




DLZ369I 


BLZUCCTO 
BLZUC150 




DLZ370I 


BLZURGLO 


2*32 


DLZ371I 


BLZUC150 




DLZ372I 


BLZURCCO 
BLZLPCCO 
BLZBApKO 
BLZUCCTO 


2-27„l 


DLZ373I 


BLZUC350 




DLZ37ai 


BLZUC150 
BLZUC350 




DLZ375I 


BLZUC350 




DLZ376I 


BLZURGLO 


2-32 


DLZ377I 


BLZURGUO 1 




DLZ378I 


BLZURGUO 


2-31 




BLZURGLO 


2-32 


DLZ379I 


BLZURGUO 


2-31 




BLZURGLO 


2-32 


DLZ380I 


BLZURGUO 


2-31 




BLZURGLO 


2-32 


DLZ381I 


BLZURGUO 


2-31 




BLZURGLO 


2-32 


DLZ382I 


BLZURULO 




DLZ383I 


BLZURULO 




DLZ384I 


BLZUCUMO 




DLZ385I 


BLZUCUMO 




DLZ387I 


BLZURGLO 




DLZ389I 


BLZURGLO 
BLZURRLO 


2-32 


DLZ390I 


BLZUC150 
BLZLOGPO 




DLZ391I 


BLZUBMPO 
BLZURBBO 
BLZURULO 
BLZURRLO 
BLZBACKO 
1 BLZUC150 
BLZUC350 






1 BLZURPRO 


2-34 




BLZURGSO 


2-35 




1 BLZURGIO 


2-36 




1 BLZURGPO 






1 BLZUCCTO 






1 BLZTPRTO 




BLZ392I 


1 BLZURULO 
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Message 




Figure 


Number 


Module 


Number 




DLZURGUO 
DLZURRLO 


2-31 


DLZ393I 


DLZURRLO 




DLZ39ai 


DLZURRLO 
DLZURDBO 




DLZ395I 


DLZBACKO 




DLZ396I 


DLZRDBCO 




DLZ397I 


DLZRDBCO 




DLZ398I 


DLZRDBCO 




DLZ399I 


DLZRDBCO 




DLZ400I 


DLZURGUO 


2-31 


DLZ401I 


DLZBACKO 
DLZLPCCO 
DLZUCCTO 




DLZ402I 


DLZBACKO 
DLZURDBO 
DLZUC150 




DLZUOai 


DLZBACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 




DLZ405I 


DLZBACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 




DLZa06I 


DLZBACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 




DLZ407I 


DLZLPCCO 
DLZTPRTO 
DLZURCCO 




DLZ408I 


DLZLPCCO 




DLZ409I 


DLZLPCCO 




DLZ410I 


DLZLPCCO 




DLZ411I 


DLZLPCCO 




DLZU12I 


DLZLPCCO 




DLZ413I 


DLZLPCCO 




DLZ414I 


DLZLPCCO 
DLZURCCO 
DLZTPRTO 




DLZ415I 


DLZLPCCO 
DLZURCCO 




DLZU16I 


DLZLPCCO 


2-39.1 


DLZai7I 


DLZLOGPO 




DLZ418I 


DLZLOGPO 




DLZ419I 


DLZX^CGPO 




DLZt*20I 


DLZLOGPO 




DLZ421I 


DLZLOqPO 




DLZ'*22I 


DLZLOGPO 




DLZ423I 


DLZLOGPO 




DLZ42m 


DLZLOGPO 




DLZ425I 


DLZLOGPO 




DLZ426I 


DLZLPCCO 




DLZ427I 


DLZLOGPO 




DLZU28I 


DLZLOGPO 




DLZ429I 


DLZLOGPO 




DLZa30I 


DLZLPCCO 




DLZ431I 


DLZLPCCO 




DLZ432I 


DLZLPCCO 
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Message 


1 


1 Figure 


Nuinfcer 


Module 
1 


Number 


BLZ433I 


DLZLPCCO 




DLZ434I 


DLZLPCCO 




BLZ440I 


DLZTPRTO 




DLzauii 


DLZTPRTO 




DLZUtt2I 


DLZTPRTO 




DLzaasi 


DLZTPRTO 




DLZ^aUI 


DLZTPRTO 




DLZ^aSI 


DLZTPRTO 




DLZa76I 


I. DLZDLAOO 




1 DLZ570I 


IDLZDLBL3 




DLZ571I 


DLZUACBO 


2-33 


DLZ572I 


DLZDLBLO 
DLZDLBLl 




DLZ573I 


DLZDLBLO 
DLZDLBLl 




DLZ583I 


DLZUACBO 




DLZ584I 


DLZUACBO 




DLZ585I 


DLZUACBO 




DLZ587I 


DLZUACBO 


2-33 


DLZ588i 


DLZUACBO 


2-33 


DLZ589I 


DLZUACBO 


2-33 


DLZ772I 


DLZDXMTO 




DLZ796I 


DLZDLDOO 




DLZ797I 


DLZDDLEO 




DLZ798I 


DLZDLRGO 
DLZDLRDO 




DLZ799I 


DLZDLDOO 




DLZ800I 


DLZCPYIO 




DLZDLROO 




DLZ801I 


DLZDLROO 




DLZ802I 


DLZDLDOO 




DLZ803I 


DLZDLDOO 




DLZ804I 


DLZDLDOO 




DLZ806I 


DLZDLDOO 




DLZCPYIO 




DLZ807I 


DLZDJ.DOO 




DLZ808I 


DLZDLDOO 




BLZ830I 


DLZDHDOO 
DLZGGSPO 




1 DLZ831I 


DLZDHDSO 


2-13.5 


DLZ8aiI 


DLZDBHOO 




DLZ8a4I i 


DLZDBH02 




DLZ845I 


DLZDBHOO 




DLZ8a7I 


DLZDBHOO 




DLZSaSI 


DLZDBHOO 




DLZ850I 


DLZDDLEO 




DLZ855I 


DLZDDLEO 




DLZ860I 


DLZDDLEO 
DLZDXMTO 




DLZ861I 


DLZDDLEO 




DLZ862I 


DLZDDLEO 




DLZ863I 


DLZDDLEO 




DLZ864I 


DLZDDLEO 




DLZ868I 


DLZDXMTO 




DLZ888I 


DLZBACKO 




DLZ894I 


DLZEACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 




1 DLZ901I 


DLZDLBL2 
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Message 




Figure 


Number 


Module 


Number 


DLZ902I 


DLZDLBL2 




DLZ903I 


DLZDLBL2 




DLZ90ai 


DLZDLBLO 




DLZ905I 


DLZDLBLO 
DLZDLBLl 
DLZDLBL2 
DLZDLBL3 




DLZ906I 


DLZDLBLO 




DLZ907I 


DLZDLBL3 




DLZ908I 


DLZDLBL3 




DLZ909I 


DLZBLBL2 




DLZ910I 


DLZDLBLO 
DLZDLBLl 




DLZ911I 


DLZDLBL2 




DLZ912I 


DLZDLBLl 




DLZ913I 


DLZDLBLl 




DLZ9iai 


DLZDLBL2 




DLZ915I 


DLZDLBLl 




DLZ916I 


DLZDLBLl 




DLZ917I 


DLZDLBLl 




DLZ918I 


DLZDLBL2 




DLZ919I 


DLZDLBL2 




DLZ920I 


DLZDLBLl 




DLZ921I 


DLZDLBLO 




DLZ922I 


DLZDLBLl 




DLZ923I 


DLZDLBLl 




DLZ92UI 


DLZDLBLl 




DLZ925I 


DLZDLBLl 




DLZ926I 


DLZDLBLO 
DLZDLBLl 
DLZDLBL2 
DLZDLBL3 




DLZ927I 


DLZDLBLl 




DLZ9281 


DLZDLBLl 




DLZ929I 


DLZDLBLO 
DLZDLBLl 




DLZ931I 


DLZDLBLl 




DLZ932I 


DLZDLBLl 




DLZ933I 


DLZDLBL3 




CLZ93UI 


DLZDLBL2 




DLZ935I 


DLZDLBL2 




DLZ936I 


DLZDLBLl 




DLZ937I 


DLZDLBLl 




DLZ938I 


DLZDLBL2 




DLZ939I 


DLZDLBLl 




DLZ940I 


DLZDLBL2 




DLZ941I 


DLZDLBL2 




DLZ9a2I 


DLZDLBL2 




DLZ9U3I 


DLZDLBL2 




DLZ9aai 


DLZDLBL2 




DLZ9a5I 


DLZDLBLO 




DLZ946I 


DLZDLBL2 




DLZ947I 


DLZDLBL2 




DLZ9a8I 


DLZDLBL2 




DLZ9a9I 


DLZDLBL2 




DLZ952I 


DLZURPRO 






DLZURGSO 


2-35 


DLZ953I 


DLZURGPO 




DLZ954I 


DLZURPRO 


2-34 




DLZURGSO 


2-35 
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Figure 


Number 


Module 


Number 




BLZURGIO 


2-36 




BLZURGPO 




DLZ955I 


BLZURGIO 
BLZURGPO ; 


2-36o2, 2-36o4 


DLZ956I 


BLZURPRO 


2-34 




BLZURGSO 


2-35 




BLZURGPO 




DLZ957I 


BLZURGSO 


2-35 




BLZURGIO 


2-36 


DLZ958I 1 


BLZURGSO 
BLZURGPO 


2-35 


DLZ959I ; 


BLZURGSO 
BLZURGPO 




DLZ960I 


BLZURGPO 




DLZ961I 


BLZURPRO 
BLZURGSO 
BLZURGIO 




BLZ962I 


BLZURPRO 


2-34 


DLZ963I 


BLZURPRO 


2-34 


DLZ964I 1 


BLZURPRO 


2-34 


DLZ965I 


BLZURPRO 


2-34 


DLZ966I 


BLZURPRO 


2-34 




BLZURGSO 


2-35 




BLZURGIO 


2-36 




BLZURGPO 




DLZ967I : 


BLZURGSO 


2-35 


DLZ968I 


BLZURGSO 
BLZURPRO 






BLZURGIO 


2-36 




BLZURGPO 




DLZ969I 


BLZURGSO 


2-35 


DLZ970I 


BLZURGSO 


2-35 


DLZ971I 


BLZURGSO 


2-35 


DLZ972I 


BLZURGSO 




DLZ973I 


BLZURGSO 




BLZ974I 


BLZURGSO 




DLZ975I 


BLZURGSO 


2-35 


DLZ976I 


BLZURPRO 


2-34 


DLZ977I 


BLZURGIO 


2-36„2 


DLZ978I 


BLZURGIO 


2-36o2 


BLZ979I ] 


BLZURGIO 


2-36-2 


DLZ980I 


BLZURGIO 


2-36.2, 2-36.4 


DLZ981I 


BLZURGIO 


2-36-4 


DLZ982I 


BLZURGIO 
BLZURGPO 


2-36 


DLZ983I 


BLZURGPO 




DLZ98ai 


BLZURPRO 


2-34 




BLZURGSO 


2-35 




BLZURGIO 


2-36 


DLZ985I 


BLZURPRO 


2-34 


BLZ989I 


BLZURGIO 


2-36«2 


BLZ990I 


BLZURGSO 
BLZURGPO 
BLZURGIO 




BLZ991I 


BLZURPRO 
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DL/I STATUS CODES/MODULE CROSS REFERENCE 



This table cross-references DL/I status codes (in alphabetic order) with 
the module (s) that can cause that status code to be set. The modules 
are described in section 3 of this publication. The status codes are 
described in Chapter 6 of "DL/I DOS/VS Messages and Codes". 



Status Code 


Module 






AE 


DLZDLAOO 






AC 


DLZDLAOO 






AD 


DLZDLAOO, 


DLZODP 




AH 


DLZDLAOO 






AI 


pLZDXiAOO, 


DLZDLDOO 




AJ 


DLZDLAOO 






AK 


DLZDLAOO, 


DLZDLROO 




AM 


DLZDLAOO, 


DLZDLDOO 




AC 


DLZDLDOO, 


DLZDLROO, DLZDDLEO, DLZCPYIO 


CA 


DLZCPYIO 






CB 


DLZCPYIO 






CC 


DLZCPYIO 






CD 


DLZCPYIO 






CE 


DLZCPYIO 






DA 


DLZDLDOO 






DJ 


DLZDLAOO 






DX 


DLZDLDOO 






GA 


DLZDLROO 






GE 


DLZDLROO 






GE 


DLZDLROO 






GK 


DLZDLROO 






GP 


DLZDLROO 






II 


DLZDLROO, 


DLZDDLEO 




IX 


DLZDDLEO 






KA 


DLZCPYIO 






KB 


DLZCPYIO 






KC 


DLZCPYIO 






KD 


DLZCPYIO 






KE 


DLZCPYIO 






LB 


DLZDLAOO, 


DLZDDLEO 




LC 


DLZDLAOO 






LD 


DLZDLAOO 






LE 


DLZDLAOO 






NA 


DLZDXMTO 






NE 


DLZDXMTO 






NI 


DLZDXMTO 






NC 


DLZDXMTO 






RX 


DLZDLDOO 






VI 


DLZDLAOO 






XD 


DLZDLAOl 






XH 


DLZDLAOO 
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SECTION 7: APPENDIXES 



This section consists of the following appendixes: 
Appendix A: Low-Level Code/Continuity Checking in DL/I, 
Appendix B: DBD Generation, 
Appendix C: PSB Generation. 
Appendix D: DL/I Macros 
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APPENDIX A; LOW^LEVEL CODE/CONTINUITY CHECK IN DL/I 



FLOW OF CONTHOL 

Low Level Code/Continuity Check (LLC/CC) in DI^/I is used as a subroutine 
of a user-written application program that runs under DOS/VS. Control 
passes to and from the subroutine using standard calls. 

LLC/CC in DL/I is a single control section (CSECT) which is structured 
into seven modules (see Figure 7-1). The entry modules 000 for update 
and 001 for initial generation of low-level codes have multiple entry 
points for call statements issued by the user-written application 
program, that is, a separate entry point for each source language that 
is supported. All modules have only a single exit point, all lower 
level modules 002 through 006 are only entered at one point. 

All modules assemble and issue DL/I calls. The entry point for DL/I 
depends on the source language that is identified by the entry point 
into LLC/CC in DL/I« The language bits in the LLC/CC execution control 
block (LECB) identify the source language of the application program. 
If an unexpected status code of DL/I is reported in the appropriate PCB, 
the error bits in the LECB are turned on, and control is routed back 
directly to the entry modules 000 or 001. 

LLC/CC in DL/I consists of the following modules: 

• Module 000 is the entry module for maintenance of low level codes. 
It passes control to module 002 for execution. 

• Module 001 is the entry module for initial generation of low level 
codes. It passes control to module 002 for execution. 

• Module 002 is the common mainline control module. It follows down a 
hierarchical path of a product structure. For actual explosion, 
control is passed to module 003. If a particular hierarchical path 
is exhausted, module 004 is executed to process a parallel path on 
the same hierarchical level. If all parts on the same level are 
processed, module 005 steps up one level to identify a parallel path 
on the higher level. If the original starting level is reached, the 
complete structure is processed, and control is returned to module 
000 or 001. Module 002 also detects loops and executes continuity 
check recovery in module 006. 

• Module 003 explodes a particular part into all its components. 
Control is passed from and to module 002. 

• Module 004 removes the part which has previously been processed from 
the hierarchical path thus opening a new hierarchical path via the 
next parent part on the same level. Control is passed from and to 
module 002. 

• Module 005 steps up one level and removes the higher level part from 
the hierarchical path to open another path. Control is passed from 
and to module 002. If module 002 is not able to follow a new path on 
this level, module 005 may be executed repetitively. 

• Module 006 handles restoring of old low-level codes if a continuity 
check is detected. Control is passed to and from module 002. 
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For a more detailed description, see the relevent HIPO charts at the end 
of Appendix A- 



Entry points 
DLZNNCA 
DLZNNCC 
DLZNNCP 



000 

Maintenance of 
Low Level Codes 



Entry points 
DLZNNGA 
DLZNNGC 
DLZNNGP 



001 

Initial Generation 

of Low Level Codes 



002 

Vertical Explosion 

Control 



003 

Explosion of a Part 



004 

Next parent on 

same Level 



005 

Next parent on 

higher Level 



006 

Continuity Error 

Handler 



Figure 7*1 Structure of LLC/CC in DL/I 



MODIFICATION AIDS 



EXTERNAL NAMES 



LLC/CC in DL/I uses external names in the directories and libraries of 
DOS/VS. The following table presents a list of all external names which 
are used. The user should obtain a DSERV listing to avoid duplicate 
names. 



SSL 



I 



RL 



JType of program 

i A, books 

[Execution program (DLZNN 



JE. books 

IDLZNN 



I Directory | Entry 
I entries | points 



I DLZNN* 



I Initialization 
I program for the 
control data base 



IDLZNNICT 



IDLZNNICT 



I DLZNNCA* 
I DLZNNCC* 
I DLZNNCP* 
I DLZNNEC* 
I DLZNNGA* 
I DLZNNGC* 
1 DLZNNGP* 
I 



CIL 



DLZNNICT 



* May be modified by the user during customization. 
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LLC/CC EXECUTION CONTROL BLOCK (LECB) 

The LECB of LLC/CC in DL/I is the focal point for all information 
related to actual operation of the execution program- It consists of 16 
bytes which are subdivided into 4 fullwords. An entry point DLZNNEC is 
provided so that an application program may access the contents of the 
LECB. 

The LECB contains the following information: 

1. Identification portion (fullword 0): 
Bytes through 3: C"LECB'=X'D3C5C3C2' 

This identifier facilitates location of the LECB in a main storage 
dumpo 

2, Execution control portion (fullword 1): 
Byte 4 : 

• Bits through 3: Run type bits 

Bit and bit 1: Reserved 
Bit 2: 1 if IG run 
Bit 3: 1 if U run 

• Bits 4 through 7: Not used 
Byte 5 s 

• Bits through 3: Language bits 

Bit 0: Reserved 
Bit 1: 1 if Assembler 
Bit 2: 1 if COBOL 
Bit 3: 1 if PL/I 

• Bits 4 through 7: Not used 
Byte 6: Status byte 

• Bits through 3: Completion bits (mutually exclusive) 

Bit 0: 1 if not completed, abnormal condition 

encountered 
Bit 1: 1 if component requires no change (U run only) 
Bit 2: 1 if part is already processed (IG run only) 
Bit 3: 1 if part has no components 

(IG run only, and only if bit 2 is off) 

Besides its function as an indicator, bit 3 also 
serves to transfer information whether a parti- 
cular part in an explosion sequence has component 
partSo Bit 3 is turned off in module 002 before 
entering module 003. If no component parts 
are found during the execution of module 003, 
the bit is turned on. Upon return to module 
002, the bit is tested to decide whether 
module 004 must be called. 

• Bits 4 through 7: Error bits, extending completion bit 0. 
A single error bit does not reflect a particular error 
condition, therefore, the hexadecimal representation of 

the total bit pattern in the status byte has to be analyzed. 

X"80' Parent part not found 

X'Sl" Component part not found (U run only) 

X"84* Continuity check for parent part 

X^SS" Continuity check for any component part 

X" 87" Input parameter in error 
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X^SS" Unexpected DL/I status code for parts data base 

X*8A'' Unexpected DL/I status code for control data base 

X*8C* Both error conditions X'8t*' and X'88" 

X"8D*' Both error conditions X'85* and X*88' 

X"8E« Both error conditions X'84* and X'8A' 

X«8F" Both error conditions X'85' and X«8A' 

Byte 7: Not used 

3* Parameter list portion (fullword 2): 

Bytes 8 through 11: Address constant pointing to the parameter list 
which has been previously submitted to DL/I by LLC/CC in DL/I. 
contents is defined hexadecimal zeros prior to the first run through 
ILC/CC in DL/I. The address constant is not affected by insertion 
of locators if the application program is written in PL/I. 

4* PCB save area portion (fullword 3): 

Bytes 12 through 15: Address constant pointing to a 6 4 -byte save 
area for a PCB. This save area is initialized to blanks (X'UO'), 
however, in case of an unexpected DL/I status code, the related PCB 
is saved into this save area. The PCB is stored left justified. If 
the length of the PCB exceeds 6<* bytes, the exceeding data is 
truncated. 

The contents of the status bytes is externally represented by the return 
codes of LLC/CC in DL/I. 

IG stands for "initial generation of low level codes", U stands for 
"update of low level codes". 

The LECB is located at the very end of the code of LLC/CC in DL/I. 
Therefore, the last byte of LLC/CC in DL/I may be addressed DLZNNEC+15. 



LANGUAGE CONSIDERATIONS 

During PSB generation, the source language of application programs using 
DL/I facilities is defined in the PSBGEN statements. While COBOL is 
handled like Assembler, the PCB has a different layout if PL/I is 
specified. Therefore, LLC/CC in DL/I has to use different entry points 
into DL/I depending on the source language of the invoking user-written 
application program. 

The entry routines of the execution program of LLC/CC in DL/I offer 
different entry points. The x identifies initial generation mode (G) or 
update mode (C). Six different entry points are available for transfer 
of control: 

• DLZNNxA and DLZNNxC are the entry points for application programs 
written in Assembler or COBOL, respectively. No special processing 
is required. 

• DLZNNxP are the entry points for application programs written in the 
PL/I Optimizer language. Upon entry, the address constants in the 
parameter list pointing to the locators of the parameters transmitted 
are replaced by the addresses which are stored in the respective 
locators. 

For each source language, the appropriate language bit in the LLC/CC 
execution control block (LECB) is set upon entry. 
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When a DL/I call is issued, the language bits are tested to specify the 
right entry point in DL/I: ASMTDLI, CBLTDLI, or PLITDLI. If the source 
language is PL/I, the parameter list is encoded to transfer address 
constants pointing to locators rather than pointing directly to the 
parameters. 



SAVE AREAS 

LLC/CC in DL/I contains a set of save areas which facilitate tracing 
main storage dumps. The most important save areas are: 

• standard save area, addressed by register 13, Symbolic name is SAVE. 

• Return addresses for subroutines, that is, contents of register 14. 
Symbolic names are CALLSV, PARMJUSV, INSRSAVE, SETUPSV, M002SV 
through M006SV, Save areas iyi002SV through M006SV are reset to 
hexadecimal zeros when the respective modules MOO 2 through MOOS are 
left again. 

• Save area for the contents of register 1 when entering LLC/CC in 
DL/I, that is, address of the parameter list submitted from the 
application program. Symbolic name is RISAVE. 

• save area for the leftmost 240 bytes of a PCB if an unexpected DL/I 
status code is encountered. Symbolic name is PCBSAVE. The address 
of PCBSAVE is also available in fullword 3 of the LECB. 



REGISTER USAGE 



RO: Work register 

Rl: Work register, address of parameter 

lists during parameter transfer 

R2 : Address of parameter list when preparing 

parameter transfer 

R5 : Work register 

R6: Address of PCB for parts data base 

R7: Address of PCB for control data base 

R8: Base register 

R9 2 Second base register 

R12: Reserved 

R13: Address of register save area 

R14 2 Standard return address 

R15: Standard linkage register 



HIPO DIAGRAMS FOR LLC/CC 

The following HIPO diagrams describe the seven modules (000--006) of LLC. 
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Processinq 

This nodule is entered froa an 
application pcoqraa via CALL. 



PARTS PCB ] 


CTL.- 


-PCB 


PAH. 


PART 


COHP 


PART 






.'i 


\ 


/ 


PARTS 


DB 



[01] Obtain and adjust input 
data. 



J02t Read parent and component 
part, if not found, go to 
step 9. 

[oTj Increment the LLC of the - 
parent part by 1 to obtain 
the initial LLC. Set 
actual LLC to initial LLC. 
if the actual LLC is not 
higher than the LLC of the 
component part, no 
processinq is required and 
control is passed to step 
9. 

[OUJ Insert root segment LLCTL - 
with key = X to start the 
control data base. 

I Of>| Insert dependent seqments - 
into the control data base 
for parent part and for 
component part. 



LLC 
flHITIAL~ 



/ 




\ 


r- 






\ 




/ 


co^ 


TROL 


DB 



MAINTENANCE OF LOW - LEVEL CODES 



HIPOHAT 1.1 Diagram - 3.1.1-01 



Notes 



I 01 1 The calling application program 
uses three different entry 
points for Assembler, COBOL or 
PL/I. A parameter list 
consisting of 6 pointers 
identifies 6 fields, U of them 
containing input data, 2 of them 
expecting output data. 

1051 The original LLC of the 

component is saved in an 

OPDHASTR segment. A PARTBBXP 

segment for continuity check 

control with a key composed of 

hexa zeros plus the key of the 

parent part is inserted. The 

continuity check itself is 

explained in note 6 of 002 - 

f 
VERTICAL EXPLOSION CONTROL. A 

P A RTB EXP 'segment for explosion 

control with a key composed of 

the actual LLC plus key of the 

component part is inserted. 



DLZNNCA 
DLZNNCC 
DLZNNCP 



Routine Label 



000 - BAIHTBHAHCE OF LOW - LEVEL CODES 



HIPOBAT 1.1 Diagcaa > 3.1.1-01 
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Output 




}06| Replace the old LLC in the- 
cofflponent part by the 
actual LLC. 

[oT} Execute LLC/CC in DI/I. 



< I ••! >(002 
\r 



I VERTICAL EXPLOSION 
I CONTROL 

3.1.3 



08j Reaove all control 
inforoation froo the 
control data base by 
deleting the root segaent 
LLCTL »ith key = X. 



109 1 Set up return inf ornation .- 
Return to calling 
application program. 



--,) 



— 'N 
— i/ 



t-.-4 



\ 
PARTS DB 



CONTROL DB 



MAINTENANCE OF LOW - LEVEL CODES 



HIPOMAT 1.1 Diagraa - 3.1.1-02 



Notes 



1 09] Return infomation is obtained 

from the status bits of the LECB 
and from the internal loop key 
field. 



Routine Label 



000 - BAIirTEHAMCB OP LOB - LEVEL CODES 



HIPOHAT 1.1 Oiagraa - 3.1.1>02 
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Output 




This Bodule is entered from ao 
application program via CALL. 



Ol| Obtain and adjust input 
data. 



foTl Read part. If not found, 
qo to step 9. 



[«] 



Q3| Test the LLC of the part. - 
If it is not 0, qo to step 
8. Else set initial and 
actual LLC to 0. 

l^OOJ The part is tested whether 
it has component parts. If 
no components are found, 
control is passed to step 
9. 

[oiTj Insert root segment LLCTL 
with key = X to start the 
control data base. 







Insert a segment PABTBEXF 
with key composed of 
packed zeros, i.e., actual 
LLC plus part key. 




LLC 

riNITIAL 1 
I ACTUAL I 



A 



CONTROL DB 



INITIAL GENERATION OF LOW - LEVEL CODES 



HIPOMAT 1.1 Diagram - 3.1.2-01 



I 01 1 The calling application proqram 
has three entry points for 
Assembler, COBOL or PL/I. A 
parameter list consisting of 5 
pointers identifies 5 fields, 3 
of them containing input data, 2 
of then expecting output data. 

fool A bit is set in the LBCB to 

indicate that no component part 
exists. 



DLZNNGA 
DLZNNGC 
DL2NNGP 



LFCBSNOC 



Routine Label Ref 



001 - INITIAL GEHEHATIOH OF LOW - LEVEL CODES 



HIPOBAT T.I Diagram - 3.1.2-C1 
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INITIAL GENRBATION OF LOW - LEVFL CODES 



Output 



1071 Fxecute LLC/CC in DL/I. 



< !••! >i002 



~~] 



EXPLOSION I 
3. 1.3j 



081 Remove all control 
information from the 
control data tase fcy 
deletinq the root segment 
LLCTL with key = X 



I 



|09| Set up return inf ormation .- 

L J _ 

Return to calling 

application program. 



I . ./( 

\ / 

CONTROL DB 




HIPOMAT 1.1 Diagraa - 3.1. 2-02 



1091 Return information is obtained 

L J 

from the status bits of the LECB 
and from the internal loop key 
field. 



Ref j I Notes 



Routine Label Ref 



00 1 - INITIAL GENERATION OF LOH - LEVEL CODES 



HIPOHAT 1.1 Diagrai - 3.1.2-02 
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Output 



I 

LLC I 

[actual 1 

I ) I 

(INITIAL I I 

' ' 1 

I 



l\ 
\ 

CONTROL DB 



^\ 



IB 



The actual low-level code 
is used to identify the 
next part to be processed. 
A segment PARTBEXP is read 
with key equal or greater 
to LLC plus hex zeros. 



[02] If no seqiaent PABTBEXP is 
found , the actual LLC is 
exhausted. Control is 
passed to module C05. 



< I ••! >|005 
\r 1/ I- 



INEXT PARENT ON | 
I HIGHER LEVEL. | 
3.1.3.3 



Upon return from 005, the 
actual LLC is tested. If 
it is higher than the 
initial LLC, control is 
passed to step 1 , else 
processing is completed 
and control is passed to 
step 8. 




002 - VERTICAL EXPLOSION CONTROL 



HIPOHAT 1.1 Diagram - 3.1.3-01 



\o^ \ Vertical explosion control is 
performed by means of PARTBEXP 
segments. Each time a new 
component part is encountered 
with a low-level code which 
needs replacement, a PABTBEXP 
segment - key = LLC + part key - 
is created. When going down a 
product-structure tree, this 
step of LLC/CC in DL/I 
identifies a new component part 
to become a parent part within 
the recursive process of 
explosion. Explosion proceeds on 
a FIFO basis. 

1021 During previous explosions, no 
component part was found 
requiring the replacement of its 
current low-level code, or no 
component part was found at all. 
Therefore, no segment PARTBEXP 
was inserted. 



1 031 The initial low-level code was 

established either in nodule 000 
or in module 001, resp. 



Routine Label 



PARTBEXP 



Houtine Label Ref 



002 - TEBTICAL BXPLOSION CONTBOL 



HIPOHAT 1.1 Diagram - 3.1.3-01 
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/ 


\ 


r....... 


■A 


\ 


/ 


PASTS DB 





j OU I If a segment is found, 

read the root seqnent of 



the part. 



m 



/«-- — '\ r 

< I ••! >|006 
\r ./ I- 



lERROfi BECOVERy 

IHANDLEH 

j 3.1.3.4 



05l Increment the actual LLC 
by 1 to post into the 
components of the new 
part. 

|06| Perform continuity check 
and qo to step 9. If the 
check fails, restore old 
LLC status in 006. 



Upon return from 006, 
control is passed tc step 
12. 



1/ 



"0 



—- »\ 



Factual 



j . ./j 

\ / 

CONTROL DB 

ODTFIJT DATA 
rioOP KEY 1 
liaioR INFO I 



VERTICAL EXPLOSION CONTROL 



HIPOMAT 1.1 Diagram - 3.1.3-02 



I Routine 



j 06 i The continuity check is 

PGrformed using the segment type 
PARTBEXP. Each time a new part 
is becoming exploded, a segment 
is inserted which only consists 
of the part key preceded by 2 
bytes hexa zeros. If a part 
occurs twice in a particular 
hierarchical path, DL/I will 
reiect the reguest for insertion 
because a segment with same key 
is already existing. LLC/CC in 
DL/I tests this condition and 
signals continuity check. 
Insertion is processed here. 
However if in updating mode, 
LLC/CC in DL/I inserts a 
PARTBEXP segment of this type 
for the part identified by PARM3 
already in 000, step 5. 



Routine Label 



002 - VERTICAL EXPLOSION CONTROL 



HIPOMAT 1.1 Diagrai - 3.1.3-02 
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002 - VPRTICAL fXPLOSICN CONTROL 



Ptocessinq 



[oil If the continuity check 
did not indicate a loop, 
the actual part will be 
exploded into its 
conpcnent pacts. 



Output 



/•■- 
Vr- 



EXPLOSION OF A 
PART 

3.1.3.1 



[09] 



Upon return from 003, a 
test is made to detect 
whether the actual part 
has had component parts at 
all. If components were 
found, control is passed 
back tc step 1. 



[lo] Klse, 004 is employed. 



< I ••! > 



NEXT PARENT ON I 
SAME LEVEL 

3.1.3.2 



[iTj Upon return, qo to step 1. 



|12| Go back to hiqher level 
module 000 or 001 



HIPOHAT 1.1 Diagram - 3.1.3-03 



A switch in the LFCB is used to 
transfer information whether a 
part has component parts. The 
switch is turned off before 
entering 003, i.e., it is 
assumed that the part has 
components. Upon return from 
003, the status of this switch 
is tested. If the switch is on, 
003 has indicated that the part 
does not have components. 



LECBSNOC 



Routine Latel Ref 



002 - VERTICAL EXPLOSION CONTROL 



HIPOWAT 1.1 Diagcaa - 3.1.3-03 
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Output 






/ 




\ 


1 ._.. 




A 


\ 




/ 


PARTS 


DB 





jOlj Read the first or next 

component seqraent of the 
actual part. If not found, 
processing is completed 
and control is passed to 
step 6. 

[02! Compare actual LLC and LLC 

L J 

in the component. If the 
actual LLC is net higher, 
no further processing is 
reguired and control is 
passed back, to step 1. 

[oTj Save the old LLC of the 
conponent in an UFDKASTR 
segment. 



[04] Replace the old LLC of the- 
component by the actual 



^/ 



l\.„„ 


/ 


\ 


/ 


CONTROL DB 


/ 


*\ 


\ 




/ 


PARTS DB 





EXPLOSION OP A PART 



HIPOHAT 1.1 Diagram - 3.1.3.1-01 



If the no-coaponent-f ound 
LECBSNOC condition was raised 
when retrieving the first 
segment, a switch indicates to 
002 that the actual part does 
not iitave any component parts at 
all and another part has to be 
selecfed for explosion. 



Routine Label 



003 - EXPLOSIOH OP A PART 



HIPOHAT 1.1 Diagra* - 3.1.3.1-01 
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003 - KXPLOSION OF A PART 



Output 



|05| Insert a seqment PARTBEXP - 
with key coaposed of 
actual LLC plus PARTKEY of 
the conponent. Go back to 
step 1. 

fo6l Go back to module CC2. 



l\ 



CONTROL DB 



HIPOMAT 1.1 Diagran - 3.1.3.1-02 



003 - EXPLOSION OP A PART 



HIPOHAT 1.1 Diagraa - 3.1.3.1-02 
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Prccessinq 









/ \-- 




l\ /I 
! • •/! 


\ / 


CONTROL DB 


LLC 1 


Factual 1 t 

L J 1 

1 
1 

i 






/ ^, ■ 




l\ /I 
j . ./| 




\ / 




CONTROL DB 





I Oil Remove the actual part 

L J 

form the hierarchical 
path. 

[02] Delete seqment PARTEEXP 

t 1 

with key composed of hex 

zeros and the key of the 

actual part. 



i03| Decrement actual LLC by 1. 



i04| Remove the first seqment 

PARTEEXP with key = actual 
LLC ♦ hex zeros since it 
has been completely 
ex ploded. 

foil Return to module 002. 




NKXT PARENT ON SAME LEVEL 



HIPOMAT 1.1 Diagram - 3.1.3.2-01 



|02| A part may occur multiple times 

t I 

within a product-structure tree. 

However, it must not pccur twice 

within a hierarchical path. 

Therefore, if a hierarchical 

path is left or is modified, all 

PARTRBXP segments for continuity 

check related to branches which 

have become obsolete will be 

removed. 



I OU I When returning to step 1 in 

t J 

module 002, the next part on the 

same level will be read. Step 3 

in 004 neutralizes step <* in 

002. 



Routine Label Ref 



ecu - NEXT PARENT ON SAME LEVEL 



HIPOHAT 1.1 Diagram - 3.1.3.2-01 
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CHART: CIZNH 
PAGE 1 OP 1 






\ - 

) 
/I 

/ 



CONTROL DB 



LLC 

[actual ] ' 



\ / I 

. . I 

I 

control DB ) 



IPART KEY I — 



-JVIIOIl Decrement the actual 
--./'—■' , , 
I by 1. 



-J\jr02] Delete the first sequent 
"^ I PARTBEXP identified ty a 
I key composed of the actual 
LLC and of hex zeros. 



|03| Delete the sequent 

L J 

PARTBEXP identified by a 
key composed of hex zeros 
and the part key retrieved 
in step 2. 

foul Return to module C02. 




NEXT PARENT OM HIGHER LEVEL 



HIPOMAT 1.1 Diagram - 3.1.3.3-01 



I 01 1 This alloiis to continue in 

I J 

module 002 at step 1 on the next 

hiqher, i.e., numerically lower 

level . 



[oil 



A part may occur multiple times 
within a product-structure tree. 
However, it must not occur twice 
within a hierarchical path. 
Therefore, if a hierarchical 
path is left or is modified, all 
PARTBEXP seqments for continuity 
check related to branches which 
have become obsolete will be 
removed. 



1 031 Since this hierarchical path is 

L J 

exhausted, the control segment 
for explosion is deleted. 



Routine Label Ref 



005 - HEXT PARENT ON HIGHER LEVEL 



HIPOBAT 1.1 Diagram - 3.1.3.3-01 
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Output 



CHABT: EL2NN 
PAGE 1 OF 1 






\ 


/ 


CONTROL 


DB 


/ 


\ 


\ 


/ 




._./ 


\ 


/ 



loTj Rea;i sequentially all 
UPEMASTP segments. 



Restore all LLCs of parts 
referenced by an UPEMASTR 
seqment to its oriqinal 
value. 



f03] Return to module 002. 



006 - CONTINDITY ERROR HANDLER 




HIPOMAT 1.1 Diagran - 3.1.3.a-01 



Routine Label Ref 



Routine Label Be£ 



006 - CONTIMOITY ERROH HANDLER 



HIPOHAT 1.1 Diagraa - 3.1.3.4-01 
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APPENDIX E; 



DBD GENERATION 



DESCRIPTION OF DBD GENERATION 



DBD generation is composed of a set of DL/I macro instructions, the 
execution of whicl) creates the user-specified data base description 
(DBD) and places it in the DOS/VS source statement library. The 
following macro instructions represent DBD generation: 



Macro Instruction 
Name 

DBD 



DATASET 



SEGM 



LCHIID 



XDFLD 



FIELD 



DBDGEN 



Purpose 

Allows the DL/I user to define the name of 
the DBD and the data base organization 

Allows the DL/I user to define names for data 
sets representing a data base, the device 
type used for storage of the data base, the 
logical record length, and the blocking 
factor for the physical records in the data 
sets representing the data base 

Allows the user to specify a DL/I segment, 
its parent segment, the segment length, the 
segment name, and segment prefix information 

Allows the user to define an index 
relationship or a logical relationship in 
which a segment will participate. 

Allows the user to define secondary indexing 
relationships. 

Allows the DL/I user to specify a data field 
or key field for a segment. The field 
definition includes the related segment field 
name, field start position in segment, field 
length, and field type. 

Causes the segments, fields, and data sets 
defined in the SEGM, FIELD, and DATASET macro 
instructions to be generated into an object 
module. 



FINISH 



Checks whether a DBDGEN statement was 
present. 



The DBD generation macros utilize a universal set of globals. The COPY 
book for these globals is in the DOS/VS source Statement Library and is 
named DLZDBGLE. 
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DBDGEN MACRO CALLING SEQUENCE 



1 


——»-.-•.-——»—.—*.—»—«.« 


.^ • .^ — ^ 


1 

1 External 






1 Macro 


Inner 1 


Inner 2 | 


1 

1 DBD 


DLZALPHA 




1 DATASET 
1 

1 


DLZALPHA 
DLZCKDDN 
DLZDEVSI 




1 

1 SEGM 


DLZALPHA 




1 ! 
1 


DLZ SOURS 


DLZXPARM 1 
DLZALPHA 1 
DLZXTDBD | 


1 


DLZXPARM 




1 
1 


DLZSEGPT 






DLZHIERS 






DLZXTDBD 




1 

1 


DLZSETFL 


DLZSEGPT 1 


1 XDFLD 


DLZALPHA 




1 LCHILD 

1 

1 


DLZALPHA 
DLZXTDBD 
DLZSEGPT 




1 FIELD 
1 






1 DBDGEN 
1 


DLZSEGPT 
DLZLRECL 






DLZSOURS 


DLZXPARM 1 
DLZALPHA 1 
DLZXTDBD | 


1 
i 


i DLZXTDBD 






DLZCAP 




1 


(See Note) 




I FINISH 






1 




■ , J 



Note: Not called if device is FBA, 
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DBDGEN MACRO - GLOBAL SYMBOL CROSS REFERENCE 



GLOBAL SYMBOLS 


MACROS 1 


1- 

LU 


Q 
OQ 
O 


z 
111 

o 

s 

Q 


< 

I 
a. 

< 
N 

Q 


a. 

N 
O 


z 
o 

Q 

o 

N 
O 


> 

o 

N 


(/) 

m 

I 

N 
O 


o 

HI 
CC 

-1 

N 
Q 


0. 

O 

Ul 

w 

N 
O 


u. 
Q 


(0 

D 

8 

N 
Q 


cc 

X 

N 

o 


Q 
QQ 
O 
H 
X 
N 

O 


Q 

-1 

UJ 

u. 


I 
z 

u. 


X 


LU 
(/5 


Q 

u. 
Q 
X 


NAME 


TYPE 


SIZE 


ACC 


C 




u 


u 


R 
















R 












R 


R 




ALIAS 


B 




































R 


U 




BLK 


A 


10 


u 
















U 






















CAPCYL 


A 








R 




u 






























CAPTRK 


A 








R 




u 






























CDNBR 


A 




u 




U 
























R 






U 




CSB 


B 








R 
























R 






U 




DBD 


B 




R 


u 


R 
























R 




R 


R 


R 


DBDERR 


B 




S 


S 


U 






s 




s 


S 


s 


S 


U 




s 


U 


R 


S 


U 


S 


DBDTERM 


B 




R 




























R 




R 


u 


R 


DBN 


C 






s 


R 


















U 




R 






R 






DBNAME 


C 


255 






R 






















u 












DD 


A 














u 




























DDNS 


C 


255 












u 




























DEV 


C 


10 


U 




R 












R 






















DEVADR1 


C 




S 




R 


































DEVADR2 


C 




S 




R 


































DNBR 


A 




U 




R 








R 


























DSC 


A 


10 






R 






























U 




DSLKL 


A 


10 






R 
























U 










DSLSL 


A 


10 






R 












R 


u 




















DSSKL 


A 


10 






R 
























U 










DSSSL 


A 


10 






R 














u 




















DS1 


C 


10 


S 




R 


































DS2 


C 


10 


S 
















R 






















ERROR 


B 


























R 


s 










R 




EXTDB 


A 








R 






















U 












EXTDBN 


A 








R 


















R 




U 






R 


R 




F@ 


A 
































U 






S 


U 


FBABLK 


A 


10 


s 




R 


































FBFF 


A 




S 




R 


































FD@ 


A 






































s 


U 


FF 


A 








R 
























U 






R 


U 


FLDCH 


A 


1020 






R 
























U 








S 


FLDLG 


A 


1020 






R 
























U 










FLDNM 


C 


1020 






R 


















R 






U 






R 


U 


FLDS# 


A 


1020 






R 


















R 






U 








U 


FLDSEN 


C 


1020 






R 


















R 












R 


S 


FLDSQ 


B 


1020 






R 
























S 










FLDST 


A 


1020 






R 
























U 










FLDTY 


A 


1020 






R 


















R 






S 










FSPF 


A 




S 




R 






.' 




























GENCHK 


B 








S 


























R 








HDAM 


B 




S 


u 


R 






' 


















R 








R 


HOB 


A 




S 


s 


R 



































A = algebraic 
B = binary 
C = character 
R = reference 
S = set 
U = reference/set 



Licensed Material - Property of IBM 7-21 



DBDGEN MACRO 


- GLOBAL SYMBOL CROSS REFERENCE (cont'd) 












GLOBAL SYMBOLS 


MACROS 1 
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N 
Q 


O 

u 

-J 
Q 


-J 
11. 

LU 

Q 


(0 

D 

-J 
Q 


cc 

X 

N 

-J 
Q 


Q 
00 
Q 

h- 
X 

N 

-1 
Q 


Q 

UJ 
LL 


X 
CO 

z 

LL 


Q 

X 


O 
m 


O 

u. 
Q 
X 


NAME 


TYPE 


SIZE 


HDORG 


B 




U 


U 


R 












R 




R 








R 




R 


R 


R 


HDRBN 


A 




S 


s 


R 


































HIDAM 


B 




S 


u 


R 
























R 




R 


R 




HIORG 


B 




u 


u 


R 














R 










R 










HISAM 


B 




u 


u 


R 


































HSAM 


B 




S 
















R 


















S 




HSEQ 


A 


16 
















u 
























HSORG 


B 




u 


u 


R 








R 




R 












R 










IB 


A 


255 






U 




























S 






INDLCHD 


B 








R 




























S 






INDX 


B 




u 


u 


R 












R 


R 










R 




R 


R 




LCDS# 


A 


255 






R 




























S 


S 




LCFLG 


A 


255 






R 




























S 


S 


R 


LCLP# 


A 


255 






R 




























S 


S 




LCNM 


C 


255 






R 




























S 


S 




LCPS 


C 


255 






R 




























S 


R 




LCXD 


A 








R 




























U 


U 


U 


LEV 


A 








R 






























U 




LOGICAL 


B 




u 


u 


R 


















R 






R 






R 




LP 


B 
























R 












R 


U 


R 


MAXCHLD 


A 






s 






























R 


R 




MAXDMAN 


A 




R 


s 




































MAXFLDS 


A 






s 




















R 






R 








R 


MAXSEGS 


A 






S 
































R 




NSTRT 


A 
































U 






S 




OBLK 


A 


10 


S 
















U 






















OBLKSZ 


A 


16 






U 












S 






















OLRECL 


A 


16 






U 












S 






















OREC 


A 


10 


U 
















R 


R 




















ORG 


A 






u 


R 






























S 




OVF 


C 


10 


S 




R 












R 






















PBLKS2 


A 


16 






U 












S 






















PLIST 


C 


100 






















R 


R 


S 










U 




PLISTK 


A 


100 
























R 


S 










R 




PLRECL 


A 


16 






U 












S 






















PNBR 


A 
























R 




u 










U 




QUITB 


B 




R 


R 




S 
















R 










R 


R 


R 


RAPS 


A 




U 


s 


R 


































REC 


A 


10 


U 
















R 


R 




















RMN 


C 




S 


S 


R 


































ROOT 


B 




















R 




R 








R 




R 


U 




RTKEY 


A 








R 
























S 










S 


A 








R 












R 


R 


R 


R 




R 


R 




R 


U 


R 


S#FLD 


A 


255 






R 
























U 










S#LC 


A 


255 






R 




























U 


U 


R 



A = algebraic 
B = binary 
C = character 
R = reference 
S = set 
U = reference/set 
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DBDGEN MACRO - GLOBAL SYMBOL CROSS REFERENCE (cont'd) 



GLOBAL SYMBOLS 


MACROS 


UJ 

(/) 

5 

Q 


Q 


z 

UJ 

g 

OQ 
Q 


< 

I 

Q. 

< 

N 

~i 
O 


a. 
< 
O 
N 

O 


z 
o 

Q 

o 

N 

-1 
O 


> 

Hi 

Q 
N 

O 


CO 
CC 

m 

I 

N 

~J 
O 


u 

111 

CC 

-1 

N 

o 


a 

LU 
(/) 

N 

Q 


-J 
u. 

h- 

Lil 

-J 

Q 


(/) 
CC 

D 

o 

-J 
o 


CC 

X 

N 

Q 


O 
OQ 
O 

h- 
X 

N 

-J 
O 


Q 

UJ 
LL 


I 

CO 

Z 
u. 


X 

o 


CD 

UJ 
(0 


Q 

-J 

u. 
O 
X 


NAME 


TYPE 


SIZE 


S#PC 


A 


255 






R 






























U 




SCK 


A 


255 






























U 






U 




SCN 


A 


10 


S 




R 


































SCRN 


C 


255 






R 






























S 




SDL 


A 


255 






R 












R 


R 










U 






S 




SDS# 


A 


255 






R 












R 


R 
















s 




SD1 


A 


255 






R 


















u 














s 


SD2 


A 


255 
























R 














s 


SD3 


A 


255 
























U 














s 


SFFLD 


A 


255 






R 
























u 






s 




SFLC 


A 


255 






R 






























u 


R 


SFLG1 


A 


255 






R 
















U 












u 






SFLG2 


A 


255 






R 
















U 


















SFLG3 


A 


255 






R 






























u 




SHISAM 


B 




U 


U 


R 












R 


















R 




SHSAM 


B 




S 


U 














R 


















U 




SI 


C 


255 






R 




























s 






SLC 


A 








R 




























u 


U 


R 


SLD 


A 






S 




















U 














R 


SLEV 


A 


255 






R 






























U 




SLFLD 


A 
































u 






s 


U 


SLSEQ 


A 
































U 






s 




SLU 


A 


























R 














U 


SMINDL 


A 


255 






R 
























R 






s 




SN 


C 


255 






R 












R 


R 




R 




R 


R 




R 


u 


R 


SP# 


A 


255 






R 
















R 












R 


s 




SPL 


A 


255 






R 












R 


R 


U 












U 


u 




SPPP 


6 


255 






















U 












U 






SPRD 


B 


255 






R 






























u 




SS 


C 


255 
























U 














U 


SSX 


B 
































U 






s 




SVLFLG 


A 


255 






R 
























R 






u 




TRK 


A 


10 


R 












S 




R 


R 




















TRK2 


A 


10 














S 




R 






















TRK3 


A 


10 














s 




R 






















TRK4 


A 


10 














s 




R 






















VLC 


B 
























R 








R 






u 




VV 


B 
























U 














u 




XDFLG 


A 


255 






R 






J 












R 






R 








S 



A = algebraic 
B = binary 
C = character 
R = reference 
S = set 
U = reference/set 
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DBDGEN MACRO DESCRIPTIONS 



DATASET NACRO 



This is an external macro through which data set/data set group 
information is specified by the user. 

DBD MACRO 

This is an external macro through which DBD control information is 
specified by the user. 

DBDGEN MACRO 

This macro terminates the DBD specification process. If the error 
switch, DEDERR, is not set, the control block generation phase is 
entered to create the required block entries. 

DLZ ALPHA MACRO 



I AN \ 

DLZALPHA I ANl ,FIELD=,CHAR= | 

I ALL I 

I I 

L ^ ^ ■ J 

This macro tests a specific character position (represented by the CHAR= 
operand) or all character positions in a specific field (represented by 
the FIELD= operand) to determine if the character is one of the 39 
alphameric characters (A through Z, #, $, a)f and through 9). The 
value range of CHAR is 1 to 255. The default value is 1. The global 
symbol QUITE is set in the following cases: 

• If the positional parameter is not AN, ANl, or ALL and the character 
is not alphabetic (A through Z, #,$, «>)• 

• If the positional parameter is AN and any chracter is not alphameric 
(A through Z, #, $, a), or through 9). 

• If the positional parameter is ANl and the first character tested is 
not alphameric (A through Z, #, $, a, or through 9). 

• If the positional parameter is ALL and the first character tested is 
not alphabetic (A through Z, #, $, a). 

DLZCAP MACRO 



I I DLZCAP I DEVICE, BLOCKSIZ 



L^ 



This macro is called by DBDGEN to calculate the block capacity per track 

and cylinder provided the blocks do not have keys. These numbers are 

required to generate some entries within the DTFSD (HSAM) and ACB- 

extension. The capacities are returned using global arithmetic a 

variables (GBLA) . Input values are: U 
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DEVICE: 2314^ 3330, 3333, 3340 
BLOCKSIZ: in bytes (key length = 0) 

Output CGBLA) and MNOTE: 

CAPTRK: number of blocks per track (GBLA) 
CAPCYL: number of blocks per cylinder (GBLA) 
MNOTE: DMANISO if invalid device 

MNOTE: Comment containing $CAPTRK and $CAPCYL if calculation 
was successful 



DLZCKDDN MACRO 
f 



I I 

I DLZCKDDN | FILENAME 

\ I I 



L- 



This macro checks the validity of filenames specified by the user and 
verifies that the specified filenames are not duplicated. 

The operand is: 

FILENAME 

is the one- to seven-character filename to be checked. 

DLZDEVSI MACRO 



DLZDEVSI I DEVICE 



This macro is called by the DATASET macro to set device capacity values 
for the specified device type. The device value specified in the DEVICE 
Operand of the DATASET statement is passed to this macro. 



DLZHIERS MACRO 



j DLZHIERS i PC,PPC,PLEV 



This macro is called by the SEGM macro to validate the hierarchical 
sequence of segment specifications. The macro maintains a 16-entry 
table (HSEQ) containing the lowest allowable PC at every level- 

The operands are: 

PC 

specifies segment physical (or sequence) code 
PPC 

specifies parent physical code 



Licensed Material - Property of IBM 7-25 



PLEV 

specifies parent level 
An error message is produced if any of the following conditions exists: 

• PC =^ 1 and PLEV = 

• PLEV > la or PPC > PC 

• value of PPC ^ value of HSEQ table entry represented by PLEV 

DLZLRECL MACRO 



I I DLZLRECL 1 NUMBER | 

[ ^ ^ I ^ ^ I ^1 

where NUMBER = 1 

This macro is called by DBDGEN to calculate LRECL and BLKSIZE values for 
the file number specified in the operand field of the macro call. 

DLZSEGPT MACRO 

[ r I ^ ^ ^ I 

I I DLZSEGPT I NUMBER | 

III I 

l^ . ^ . , J 

Where NUMBER =1 

This macro is called by SEGM, LCHILD^ and DBDGEN to maintain the globals 
DSLSt and DSSSL, which contain the sizes of the largest and smallest 
segments in a data set, respectively. This macro produces error 
messages SEGM330, SEGM340, and SEGM350 if the segment referenced by the 
operand value violates those rules. 



DLZSETFL MACRO 



I I I I 

I I DLZSETFL | PN,RULES= | 

[ _ I ^ 1^ _ . . J 

This macro processes the POINTER or PTR operand of the SEGM macro and 
sets the fiSFLGKSS) and SSFLG2(SS) globals to reflect the entered value. 
The €SFLG1(SS) and SSFLG2(€S) globals set by this macro comprise bytes 
and 1 of the 4-byte flags field of the SEGTAB entry for this segment. 

This macro is not entered if the DLZXPARM macro encountered an error 
while generating the SPLIST matrix, or if the SEGM macro detected an 
error in the POINTER or PTR parameter list. 
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Messages: 

An error message is produced and processing is terminated if: 

• An invalid keyword is encountered in the parameter list, or 

• The RULES operand is omitted or invalid 

I Flag Byte 1 (fiSFLGl(fiS)) is set as follows: 

Bit 1 - CTR If TWINBWD and/or LTWINBWD is specified , 

2 - TWIN Bit 2 and/or Bit 5 is set on, in 

3 - TWINBWD addition to Bit 3 and/or Bit 6, 
i\ - PARNT respectively. 

5 - LTOIN 

6 - LTWINBWD 

7 - LFARNT 

8 - NOTWIN 

Flag Byte 2 (€SFLG2C6S)) is set as follows: 

Bits 1 € 2 Indicate segment insert rule, where: 

10 - Physical 
01 - Virtual 

11 - Logical (Default) 

Bits 3 g U Indicate delete rule and set same as insert. (Default 
value is LOGICAL), 

Bits 5 € 6 Indicate replace rule and set same as insert. (Default 
value is VIRTUAL). 

Bits 7 6 8 Indicate physical location of inserts for nonsequenced 
segments, where: 

10 - First 
01 * Last (Default value) 

11 - Here 

The operands are: 
PN 

specifies the parent segment number 
RULES= 

specifies the RULES= operand as specified on the SEGM statement 



DLZXPARM MACRO 



I J DLZXPARM I PARjyi=,NBR= 



When used this macro extracts parameters from a sublist and stores them 
in a global matrix (PLIST), Null values in the parameter list are 
stored as null values in the PLIST matrix. 
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The operands are: 

PARjyi= 

specifies the input parameter list values 

1SIER= 

specifies the rnaximuir number of operand values to be 
allowed in each subparameter 

DLZXTDBD MACRO 



I 

I DLZXTDBD 



DB^CODE 



This macro builds an external data base reference table, 
by SEGM, LCHILD, and DBDGEN. 

The operands are: 

DB 



It is called 



CODE 



specifies a data base name or segment name 



specifies the value SEGM or is omitted. 

If the value SEGN is specified in the CODE operand^ the 
segment name (SN) is searched to locate the value 
specified in the DB operand; when found, the symbol 
EXTDBN is set to contain an 01 in byte 0, and bytes 1, 2, 
and 3 contain an offset into SEGTAB. If the segment is 
not found, an MNOTE error message is produced. 

If the CODE operand is omitted, the external data base 
reference table (DBNAME) is searched for the DB entry, 
and, if found, the symbol EXTDBN is set to contain the 
position of the found entry. If the DB value is not 
found, the value is added to the table and EXTDBN is set 
to that entry « 



FIELD MACRO 



This is an external macro used to define fields within a segment. 



FINISH MACRO 



This is an external macro used to check whether a DBDGEN statement is 
supplied. 
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LCHILD MACRO 

This is an external macro used to define index or logical relationships 
for HIDAM and HDAM. 



SEGM MACRO 



This is an external macro used to define data base segments. 



XDFLD MACRO 

This is an external macro used to define in connection with the LCHILD 
statement secondary index relationships for HIDAM and HDAM. 
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DBD GENERATION CONTROL BLOCK OUTPUT • DBDGEN 



The data base description block (DBD) is the result of each data base 
generation, 

• DIAGRAM OF DBDGEN CONTROL BLOCK OUTPUT 



GENERAL STRUCTURE: 

r — • 



DIRECTORY 



PREFIX 



DMANTAB 



ACB EXTENSION (SAME AS DMB) 
(If HSAM or SSAM, DTFs) 



SEGTAB 



FLDTAB 



EXTDBD 



LCHILD 



SORTAB 



INDXTAB 



DACT 
(Saire as DMB) 



COMPRESSION EXIT CSECTS 
(same as DMB) 



INDEX EXIT CSECTS 
(same as DMB) 
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U DIRECTORY LAYOUT 



Hex 


Dec 


Name 


Ln 








AMODLEV 


1 


1 


1 


APREFIX 


3 


4 


a 


ASEGTAB 


4 


8 


8 


AFLDTAB 


4 


C 


12 


ALCHILD 


4 


10 


16 


AEXTDBD 


4 


m 


20 


ASORTAB 


4 


18 


24 


ARMVTAB 


4 


IC 


28 


AINDXTAB 


4 


20 


32 


ADSGCB 


4 


2o 


PREFIX 


LAYOUT 




Hex 


Dec 


Name 


Ln 








PREDBDNM 


8 


8 


8 


PRENOLEV 


2 


A 


10 


PRENOSEG 


2 


C 


12 


PREACCES 


1 



Ln Description 



D 
E 
10 
18 
lA 
IC 
20 



13 

14 
16 
24 
26 
28 
32 



PRENODSG 

PRENODBD 

PRERNDM 

PRENOLCH 

PREAP 

DBDPFRBN 

DEDPFBYT 



1 
2 
8 
2 
2 
4 
4 



Release level (X'00'=1.0, 
X'll'=l.l) 

Address of PREFIX 

Address of SEGTAB 

Address of FLDTAB 

Address of LCHILD 

Address of EXTDBD 

Address of SORTAB 

Address of DMBDACS 

Address of INDXTAB 

Address of ACB extension 



Description 

DBD name 

Number of levels in data base 

Number of segments 

Organization 



Name 



EQU Meaning 



PRESHIS X'Ol* Simple HISAM 

PREISAMl X*02* HISAM 

PRESSAM X*04" Simple HSAM 

PREHSAM X"05" HSAM 

PREHD X«06* HDAM 

PREHI X*07« HIDAM 

PRENDEX X*08" INDEX 

Number of data sets 

Number of externally referenced data bases 

Randomizing algorithm name 

Number of logical children 

Number of root anchor points 

Maximum relative block number (HD) 

Maximum bytes in prime area (HD) 
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3. 


DMANTAB LAYOUT 




Hex 


Dec 


Name 


Ln 








PRECDl 


8 


8 


8 


PREDEVl 


4 


C 


12 


PREID 


1 


D 


13 


PRENSGA 


1 


E 


14 


PREDELTA 


2 


10 


16 


PRELSL 


2 


12 


18 


PRESSL 


2 


14 


20 


PRELKL 


2 


16 


22 


PRESKL 


2 


18 


24 


PRELRECL 


2 


lA 


26 


PREBLKSZ 


2 


IC 


28 


PREOLREC 


2 


IE 


30 


PREOBLKS 


2 


20 


32 


PREDD2 


8 



Description 

Input or prime filename 

Device type 

Data set group ID 

Number of segments in data set 

Delta scan cylinders (HD) 

Length of longest segment plus prefix 

Length of shortest segment plus prefix 

Length of longest key 

Length of shortest key 

Prime/input record length 

prime/input block size (control interval) 

ESDS/output record length 

ESDS/output block size (control interval) 

ESDS/output filename 



4. ACB EXTENSION 

See "ACB Extension - ACBXT". 

5. SEGTAB LAYOUT 

One of these tables exists for 



Hex 


Deo 


Name 


is 








SEGDSNO 


1 


1 


1 


SEGPHYGD 


1 


2 


2 


SEGPARPC 


1 


3 


3 


SEGLEViL 


1 


4 


4 


SEGNOLCH 


1 


5 


5 


SEGNOFLD 


1 


6 


6 


SEGliENG 


2 


8 


8 


SBGFlREQ 


4 


C 


12 


SEGSEGI^ 


8 



each segment. 

Description 

Segment data set number 

Segment code 

Parent segment code 

Segment level 

Number of logical children 

Number of fields 

Segment data length (maximum length 
if variable l^ng^h seginent) 

Reserved 

Segment name 



% 
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14 20 SEGFLGl 1 Prefix pointer flag 

EQU Meaning 

X'80' Counter 

X"UO* Physical twin forward 

X"20'' Physical twin backward 

X"10* Physical parent 

X"08" Logical twin forward 

X*04" logical twin backward 

X"02" Logical parent 

X" 01 • Hierarchical 

15 21 SEGFLG2 1 Segment update rules 

EQU Meaning 



16 22 SEGFLG3 



17 


23 


SEGFLG4 


1 


18 


24 


SEGLCHLD 


4 


IC 


28 


DBDSSN 


2 


IE 


30 


DBDSSOFF 


2 


20 


32 


SEGFLDTB 


4 


24 


36 


DBDSPFSZ 


2 


26 


3B 


SEGLENGV 


2 


28 


40 


Reserved 


4 





Insert rule 


X"CO« 


Logical 


X'80" 


Physical 


X"40« 


Virtual 




Delete rule 


X«3o« 


Logical 


X"20*' 


Physical 


X"10" 


Virtual 



Replace rule 
X" OC" Logical 
X'08'' Physical 
X'04'' Virtual 

Physical location of inserts, when 

no key field 
X*03* Here (current position) 
X*02" First 
X* 01 " Last 



X''08" Parent has backward pointers to 
this segment 

Number of physical children pointed 
to directly by this segment 

Offset to first LCHILD entry 

Number of source segments 

offset to first source segment 

Offset to first FLDTAB 

Segment prefix size 

Minimum segment length 
(0 if fixed length) 

Reserved 
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2C 



44 



SEGPACOP 



VL-Compression options 



2D 



45 



SEGPACRT 



Name EgU Meaning 

SEGCPRT X*08" Segment has compression 

routine 
SEGTYPVL X'04" Segment is variable length 
SEGPACIT X"01« Initialization exit 

requested for compression 

routine 

Address of compression table 



6« FLDTAE LAYOUT 
Hex Dec Name 
FLDNAME 
8 8 FLDSTART 
A 10 FLDFLAq 



B 11 FLDLEN 
C 12 FLDSNAME 
14 20 FLDSEGTB 



Ln 
8 
2 
1 



1 
8 



Description 

Field name 

Start position offset 



EQU Meaning 

X''80" Last field for a SEGTAB 

X"40* Sequence field 

X*20* Multiple sequence fields 

X*10* Special FDB 

Field type 

X" 01* Hexadecimal 

X« 02* Packed 

X*03* Character 

X»04« Floating point 

Field length 

source field name 

Pointer to SEGTAB entry 



7« EXTDED LAYOUT 



Hex Dec Name 
EXTDENM 
8 8 EXTRSVD 



Ln Description 

8 Externally referenced data base name 

4 Reserved 



8. 


LCHDTAE LAYOUT 






Hex 


Dec 


Name 


Ln 










LCHSEGNM 


8 




8 


8 


LCHCODE 


1 


B^t 

0=0 
0=1 



Descriptj^on 
Segment name 

Meaning 

LCHEDBD address is a EXTDBD entry 
LCHEDBD address is a SEGTAB entry 



^ 
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9 
C 



D 

E 

10 



9 LCHEDBD 
12 LCHFLAG 



13 LCHIBYTE 1 
m LCHPRDSG 2 
16 LCHFLDNM 8 



1-7 Reserved 
3 Offset to EXTDBD or SEGTAB entry 
1 

EQU Meaning 

X"80" Last entry for a SEGTAB 

X'UO" Reserved 

X"20" INDEX entry 

X* 10" Reserved 

X'"08" LP definition 

X^OU" INDEX pointer 

X"02" SNGL pointer 

X"01" DBLE pointer 

L Reserved 

Offset to paired segment 

Indexed field name 



9o SORTAE LAYOUT 

Hex Dec Name Ln 

DBDSORNM 8 

8 8 DBDSSFLG 1 

9 9 DBDSSDBO 3 



Description 

Source segment name 

Source segment flag - reserved 

Offset to data base entry 



10 . INDXTAE 

See "Secondary List • SEC (Codes 6U, 44, 40, 24, 20, 04)' 

11. DACT 

See "Direct Algorithm Communication Table - DACT". 

12o COMPRESSION EXIT CSECTS 
See "Compression CSECT - CPAC". 
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APPENDIX C: 



PSB GENERATION 



DESCRIPTION OF PSB GENERATION 



PSB generation is composed of a set of DL/I macro 
instructions, the execution of which creates the user-specified 
program specification block (PSB). 
The following macro instructions represent PSB generation: 



Macro Instruction 
Name 

PCB 



SENSEG 



Purpose 

Allows the DL/I user to define a program 
communication block (PCB) , one or more of which 
exist within a single PSB, A PCB must exist for 
each data base with which the associated 
application program PSB intends to interact. 

The PCB macro saves the type of PCB, associated 
data base name, the intended processing options 
on that data base, and the maximum key length 
within the data base. One or more PCB macros can 
be used in a single PSB generation. The limit is 
20 PCB macros per PSB generation. 

The SENSEG macro instruction allows the DL/I user 
to specify a segment within a data base to which 
the application program associated with this PSB 
is sensitive. Up to 255 SENSEG macros may follow 
a PCB macro. 



PSBGEN 



The PSBGEN macro allows the user to specify the 
associated application program language and the 
name of the PSB control block to be generated.. 
The PSBGEN macro is the generating macro for the 
entire PSB control block and its internal PCB 
control blocks. 



SENFLD 



VIRFLD 



The SENFLD macro gives the DL/I user the ability 
to specify segment sensitivity on a field level. 
Up to 255 fields within a segment, and 4095 
fields within a PSB may be specified. 

The VIRFLD macro gives the DL/I user the 
capability of defining fields in the user's view 
of a segment that do not exist in the physical 
view. In conjunction with the SENFLD macro, up 
to 255 fields per segment, and U095 fields per 
PSB may be specified. 
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PSBGEN MACRO CALLING SEQUENCE 



External 






Macro 


J Inner 1 


Inner 2 | 


PCB 


1 dlzckopt 
1 dl2;alpha 




SENSEG 


1 DLZCKOPT 




PSBGEN 


1 DLZPCBPD 





PSBGEN MACRO - GLOBAL SYMBOL CROSS 
REFERENCE 









MACROS 1 


GLOBAL SYMBOLS 


< 

I 

-J 
< 
N 

-J 
O 


o 
o 

N 
Q 


s 

CD 

N 

-J 
O 


OQ 


z 

UJ 

2 


O 

u. 

Z 

LU 
V) 


CD 

UJ 
CO 

Z 

Ul 


o 

-1 

u. 

> 


NAME 


TYPE 


SIZE 


DBNAME 


C 


255 








u 


R 








E 


B 






S 




s 


U 


S 


S 


s 


EXTDB 


A 










u 


R 








FERTNA 


A 


4095 










R 


U 




u 


FERTNM 


C 


4095 










R 


U 




u 


FSLNGT 


A 


4095 










R 


U 




u 


FSNAME 


C 


4095 










R 


u 




u 


FSRTNA 


A 


4095 










R 


s 




s 


FSSTRT 


A 


4095 










R 


u 




u 


FSTYPE 


A 


4095 










R 


u 




u 


FSVALU 


A 


4095 










R 






s 


NFER 


A 












R 


u 




u 


NFLD 


A 












R 


u 


R 


u 


P 


A 






R 




u 


R 


u 


U 


u 


PIO 


B 


255 




U 














PK 


A 


255 








S 


R 








PN 





255 








u 


R 








PC 





255 




S 




s 


R 




R 




PPI 


B 


255 




s 




s 


R 








PS 


B 


255 








s 


R 








PSEQ 


C 


255 








s 


R 








PSS 


A 


255 








s 


R 




U 




QUITS 


B 




s 






R 




R 




R 


S 


A 






R 




R 


R 


U 


U 


u 


S#FLD 


A 












R 


U 




u 


SEG 


B 










S 






U 




SFF 


A 














R 


S 


R 


SN 


C 


500 










R 




u 




SP 


A 


500 










R 




s 




SPC 


A 


500 










R 




s 




SPO 


C 


500 




S 






R 




s 




SS 


A 


255 








R 


R 


U 


u 


U 



A = algebraic 
B = binary 
C = character 



R = reference 

S = set 

U = reference/set 
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PSBGEN MACRO DESCRIPTIONS 

DLZALPHA MACRO 

A description of the DLZALPHA macro appears in Appendix B. 

DLZCKOPT MACRO 



J DLZCKOPT i OPT,M 



This macro is called by the PCB macro or SENSEG macro to validate the 
PROCOPT operand* The macro generates either the PCB or the SENSEG 
•PROCOPT OPERAND IS INVALID' error message. Global symbol PO or SPO is 
set to contain the processing option. 

The operands are: 

OPT 

specifies the PROCOPT operand as entered 
on the PCB or SENSEG statement 



is PCB or SENSEG message number 

DLZPCBPD MACRO 

This is an inner macro called by the PSBGEN macro. It generates the 
PL/I dope vector table if LANG=PL/I is specified in the PSBGEN 
statement. 



PCB MACRO 

This is an external macro used to define a DB PCB. 

PSBGEN MACRO 

This is an external macro used to terminate PSB specifications , and, if 
no errors have been encountered, to cause the generation of the PSB 
control blocks. 

SENFLD MACRO 

This is an external macro used to specify sensitive fields within a 
sensitive segment. 
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SENSEG MACRO 

This is an external macro used to specify sensitive segments in a data 
base PCB- 



VIRFLD JMACRO 

This is an external macro used to specify fields that exist in the 
user's view of a sensitive segment, but not in the physical view. 
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PSB GENERATION CONTROL BLOCK OUTPUT - PSBGEN 



Description 

Address of SEGTAB 

Address of SORTAB 

Address of DBREFTAB 

Reserved 

PST address (prefix size) 

Reserved 

Reserved 

PSB code 

PSB prefix size 

Reserved 

Offset to first DB PCB address 



1, : 


PSB - PREFIX 


Hex 


Dec 


Ln 








4 


a 


4 


4 


8 


8 


4 


C 


12 


4 


10 


16 


4 


14 


20 


12 


20 


32 


1 


21 


33 


1 


22 


34 


2 


24 


36 


2 


26 


38 


2 


28 


40 


Var 


2o 


DB PCB 




Hex 


Dec 


Ln 


PL/ I dope 


vecto; 








8 


8 


8 


2 


A 


10 


2 


C 


12 


4 


10 


16 


4 


14 


20 


8 


IC 


28 


1 


ID 


29 


3 


20 


32 


2 


22 


34 


2 


24 


36 


Var 



Address of PCB(s) (one 4-byte address for each 
PCB) 



Description 
2de PCB if LANG=PL/I 
Data base name 
Level feedback 
Status code 
Processing options 
JCB address 
Segment name feedback 
Position 

Key feedback length 
Number of sensitive segments 
Offset to first SENSEG 
Key feedback area 
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3. SEGTAE ENTRY 
Hex Dec Ln 









8 


8 


8 


a 


C 


12 


1 


D 


13 


3 


10 


16 


2 


1 12 


18 


2 


4„ 


SORTAE 


ENTRY 


Hex 


Dec 


Ln 








8 


8 


8 


1 


9 


9 


3 



Decription 

Segment name 

Processing options 

Flag 

PCB address 

Offset to parent segment 

Offset to FSB list 

Description 

Segment name 

Flag 

Offset to data base entry 



DBREFTAB ENTRY 



Hex Dec 


Ln 





12 


C 12 


4 



6* FLS TABLE 



Hex 


Dec 


Ln 








a 


U 


a 


U 


8 


8 


4 


C 


12 


4 


10 


16 


4 


14 


20 


4 



FSB LIST ENTRY 



Hex Dec 


Ln 





1 


1 1 


3 



Description 
Data base name 
Reserved 



Description 

FSB list address 

FSB table address 

Field exit routine table address 

Field exit routine table length 

Initial value table address 

Initial value table length 



Description 

Number of FSBs for segment 

Address of first FSB for segment 



Licensed Material - Property of IBM 7-41 



APPENDIX D: DL/I MACROS 



This section describes the executable processing macros that standardize 
some processing routines and DSECTS and lists the macros that provide 
the DSECTS. 



DLZBLDL 



This macro is used to search the core image libraries to determine if a 
specified load module is present. Optionally , if the phase is present, 
the length of it is calculated for the caller. The DOS/VS LOAD macro 
(TXT=NO) is used to obtain the directory entry information. 



OPERANDS 



The descriptions and valid parameters for the two keyword operands are 
as follows: 

• PHASE The name of the phase in the core image library. 

=(reg) The register specified in parenthesis must point to the 
8-byte name (padded with blanks if necessary). 

= ''name* The actual phase name may be specified enclosed in single 
quotes. 

= label This is the label of an 8-byte field containing the phase 
name with any necessary blanks. 

Register 1 is the default which must be loaded with the address of 
the name. 

• LENGTH Specified if the caller desires the actual length of the 

load module to be calculated by this macro. 

=(reg) The register specified in parenthesis will contain the 
length in binary of the load module as indicated in the 
directory entry. Register 15 is invalid. 

= label This is the label of a fullword in the calling program 

which will contain the length of the found phase on exit. 

If LENGTH is omitted, no length will be calculated. 



EXIT CONDITIONS 



R15 = The phase was found and the length, if requested, has been 
returned. 



R15 = a 



The phase was not found. 
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Registers and 1 are destroyed unless specified for the length 
register. All other registers are unchanged. 



DLZBLKLD 

This rcacro is used by some DOS/VS DL/I utility programs to request the 
initialization module to load all control blocks needed to process a 
specified utility PSB. A utility PSB is built by the application 
control block creation and maintenance utility for every user DBD except 
a primary HIDAM index r logical, or HSAM,. 

The utilities which use this special function have 'ULU' in the first 
three bytes of the parameter card. When batch initialization determines 
(by utility name - either DLZURPRO, DLZURGSO, or DLZURGPO) that the 
DLZBLKLD macro will be used, it does not load any control blocks. The 
action modules and PST and SCD are loaded, however. When the utility 
first receives control, register 1 contains the address of the PST. 



OPERAND 

When the utility reaches the point where blocks are needed, the DLZBLKLD 
macro is executed: 

Kreg)] 

DLZBLKLD DMB= [label] 

The DMB operand indicates the address of the 8-byte DMB name for which 
blocks are required. Either the register number (reg) or the label of 
the field may be specified to indicate the address. If this operand is 
omitted, register 1 is assumed to contain the address of the DMB name. 

The expansion replaces the ending "D* of the DMB name with a 'U'. A 
CALL is made to ASMTDLI with the parameter list as follows : 

DC A(FUNC) Address of function 

DS CL8 The name of the utility PSB 

FUNC DC CELDB' Function 



EXIT CONDITIONS 

After execution of this DLZBLKLD macro, register 15 contains a return 
code: 

R15 = The blocks were loaded successfully. Register 1 contains the 
address of the list of PCB addresses. 

R15 * The blocks were not loaded successfully. Register 1 contains 
the address of the name of the block which could not be 
loaded. 

Any previously loaded blocks have been overloaded and new buffer pools 
have been allocated^ 
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When the utility program returns to the language interface at end-of- 
job, a return code is expected in register 15., If register 15 is 0, 
normal unload processing will occur. If register 15 is non-zero, no 
UNLD call will be made. This return is used when no blocks have been 
successfully loaded. 



DLZDVCE 

The DLZDVCE macro is available for the utilities to: 

- Determine whether a logical unit is assigned or not. 

- Determine if it is assigned to disk or tape. 

- Modify the corresponding DTF. 

The format of the macro is as follows: 

DLZDVCE £jyiF=CE|R|L|C}3 [, {listname| (r)}] 
[rDISKDTF={dtfnamel| (r)}] 
[,jyiODIFY={NOlYES}3 
[,TAPEDTF={dtfname2| (r)>3 
[,FNAJyiE={ filename! (r)}] 

£ , RECFM= (FIXUNB | VARUNB | UNDEF | FIXBLK | VARBLK } ] 
£ , DEVADDR= £ S YSnnn | ( r ) } 3 
£rDTFADDR=£ fieldname I (r)}3 
£,LNAiyiE=listname3 
£ t EOXTNT=routinename 3 

The operands have the following meaning: 

MF specifies the type of code to be generated by this expansion. 
This allows for multiple invocations of the function without 
generating multiple copies of the code itself. 

E generates the mainline code and, unless "listname' is 
specified, a parameter list. 

Note : Only one execute form of the macro is allowed for 
one single assembly. One, however, is required. If 
encountered more than once, it will be reset to R for all 
macros but the first one. 

The entry point of the mainline routine is always 
DLZDTENT, This will be used by all calls generated by R 
type macros. 

R A series of instructions to invoke the main routine, and, 
unless 'listname' is also specified, a parameter list 
will be generated. DLZDTENT is used as branch address to 
the main routine. 

listname specifies a parameter list to be used with this 

execution or invocation. The list must be defined in the 

program with an jyiF=L macro or using the LNAME operand in 

an jyiF=E or MF-R macro. Listname is only valid with E or 

R. If listname is specified, any other operands 

specified will permanently override the corresponding 

parameters in the list. Not specifying an operand, 

however, will not clear the corresponding field in the / 

list. l^ 
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Register notation may be used^ in which case the register 
must contain the address of the list. 

L Only a parameter list but no code will be generated, 

Either the label field or the LNAME parameter (or both) 
can be used to assign a name to the list which can be 
referred to by any E of R form. 

Register notation in the operands of an L form macro is 
not allowed, except for the DTFADDR operand. 

C causes a check to be performed on all parameter lists 
generated during this assembly. All references to a 
single list are totaled and the presence of all required 
operands is checked. An error summary is printed. This 
form of the macro should be used as the last occurrence 
of DLZDVCE in any single assembly. 

Note that passing this check error-free does not 
necessarily guarantee error-free execution, since the 
check cannot foresee the sequence in which the various 
DLZDVCE invocations are executed. 

If the MF operand is omitted or invalid, it will default to E 
in the first macro encountered, and R in all other 
occurrences. 

DISKDTF specifies the name of the disk DTF to be modified if the 
logical unit is assigned to a disk device. If register 
notation is used, the register must contain the address of 
the DTF. 

Specifying DISKDTF=0 or a register containing zero will 
nullify the parameter. 

If this operand is not present at execution time C after any 
overriding), the routine will consider assignment to a disk 
device as invalid. 

TAPEDTF specifies the name of the tape DTF to be modified if the 

logical unit has been assigned to a tape device. If register 
notation is used, the register must contain the address of 
the DTF. 

Specifying TAPEDTF=0 or a register containing zero will 
nullify the parameter. 

If this operand is not present at execution time (after any 
overriding), the routine will consider an assignment to tape 
as invalid. 

If MF=E or R without listname was specified, either DISKDTF 
or TAPEDTF or both must be specified. 

MODIFY specifies whether or not the selected DTF is to be modified 

accordingly or not. MODIFY=YES is the default. If MODIFY=NO 
was specified, and a valid device type was found, register 15 
will have a negative return code, indicating that no 
modification has been done. 

FNAME specifies the filename to be moved into the appropriate DTF. 
If not present at execution time, the DTF field is not 
changed. For register notation, the register must point to a 
seven-byte field containing the file name. 
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Specifying a register pointing to a hex zero string will 
nullify the parameter. 

RECFJM specifies the record format of the file. One of the values 
shown must be specified. Omission or invalid specification 
defaults to VARBLK. 

DEVADDR specifies the logical unit number to be tested. It must be 
in the form SYSnnn, where nnn is 000 to 243^ or in register 
notation r in which case the register must contain the unit 
number as a binary number in the same range. 

This parameter is required if MF=E or R without listname was 
specified. 



DLZER 

This macro is used in module DLZLBLMO to specify a message. Code is 
also generated to support selection by message id. 

OPERANDS 

DLZER ID=nnn,TEXT=text[,LAST=NO 3 

[ YES] 

ID = one to three digit message number CNNN* in 'DLZNNNI'). 

TEXT = message text. Text is a string of parameters enclosed in left 
and right parentheses. Each parameter is either a character 
string enclosed in quotes; or a set of two values , the first 
indicating a length to be reserved for a field to be dynamically 
inserted, and the second the register that will contain the 
address of the field to be inserted (not -register Rl or R15). 

(The message number is generated by the macro and need not be 
included in the text.) 

TEXT=('THIS IS •^B.RS,' AN EXAMPLE %8,R4) 

LAST = "YES* indicates that no further messages exist. This is a 

special message. The contents of the specified register will be 
converted to BCD and stored in the field for each insert field. 

This macro also generates the code to select and format a message. 
Preceding the first call of DLZER, code must be supplied to establish 
addressability and equates must be supplied for 'Rl' and 'RlU'. 

INPUT: 

•Rl" should contain the message code in binary format. 

"R14" must contain the address of the routine to process a message once 

it has been located and formatted. 

OUTPUT: 

■Rl* will contain a pointer to a two byte field containing the length of 
the message. The message directly follows this two byte field. The 
message is formatted as: 

ODLZNNNI TEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXT \ 
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DLZIPOST 

This rracro is used by DL/I to post ECBs in an online environment. 

There are no operands,. Register 2 trust contain the address of the ECB 
to be posted. Bit of byte 2 is set on. 



DLZIWAIT 

This iracro is used by DL/I to coitirnunicate with an IWAIT routine 
(DLZIWAIT) to wait until an ECB is unposted. 

There are no operands. The PST inust be addressable and register 2 must 
contain the address of the ECB that is to be waited for. The caller 
must have provided a USING SCD^IS. Registers 14 and 15 are used to 
branch to the DLZIWAIT routine. 



DLZTRCAL 

This macro is used by action modules to invoke the tracing facility. 
Refer to DL/I DOS/VS Diagnostic Guide for a description of this macro. 



DLZTRPRM 

This macro is called by the DLZTRACE macro to parse parameter lists. It 
is similar to the DLZXPARM macro of DBDGEN (see "DLZXPARM Macro" in 
Chapter 6). In addition to the interface described for DLZXPARM, the 
length of each parameter list member is passed to the caller in the GBLA 
fields $PLEN(25). 



DLZMPCPT 

The master partition controller (MCP) partition table is used to pass 
control information when processing batch partition application programs 
under MPS (Multiple Partition Support). The MPC partition table resides 
in the transaction work area. There is one entry for every partition 
defined during system generation, except for the partition where the MPC 
resides. 



DLZTWAB 



This macro provides the mapping for the BPC batch partition control 
information for the DL/I task termination routine under MPS (Multiple 
Partition Support). This information resides in the BPC's task 
transaction work area. 
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DLZXTAB 

This iTfacro provides the mapping for the XECBTAB macro DEFINE, DELETE , 
and CHECK options under MPS (Multiple Partition Support), 

DLZXCBl 



This macro maps the DLZXCBnl and the data that follows it- 
to check data under MPS (Multiple Partition Support). 



It is used 



MACROS USED TO CREATE DSECTS FOR DL/I SYSTEM CONTROL BLOCKS 

The following macros are used to generate DSECTS for the DL/I control 
blocks: 

DLZBFFR 

DLZBFPL 

DLZDDIR 

DLZIDLI 

DLZPDIR 

DLZPPST 

DLZPSIL 

DLZPST 

DLZSCD. 

Macros used only by utilities to generate DSECTs: 

DLZCKPT 

DIZDTF 

DLZIDED 

DLZRECO 

DLZUCHDR 

DLZUCOLD 

DLZUCREC 

DLZUCUMC 

DLZUDHDR 

DLZURGUF 

DLZURHDR 

DLZUSTAT 

DLZTRENT, 

Miscellaneous macros: 

DLZDLIST Creates parameter list for DLZIDUMP macro 

DLZDLP Log record DSECTs and declarations 

DLZHDSO work area for DLZDHDSO 

DLZIDUMP IPCS dump hook macro 

DLZQUATE Register equates 

DLZSBIF Work area for DLZDBHOO 

DLZUMSG Messages for utilities 

DLZWA Work area used by DLZDLDOO 

DLZXMTWA Work area used by DLZDXMTO, 

DL/I QUEUING FACILITY MACROS 

Four macros are available to request processing of a specific function 
by the queuing facility module (DLZQUEFO), The functions that can be 
requested and the macros that can be used are: 
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Function Requestea Macro. Used 

Enqueue DLZENQ 

Verify DLZVER 

Dequeue DLZDEQ 

Purge DLZPUR 

The functions are described in Section 3 of this manual. The format of 
each macro and the description of the operands is as follows: 

Formats 



DLZENQ [PST=rl] [,LEV={RO| UPD] EXOl [ ,ID=r21 [ , FLAG=x ' hh • ] 

DLZVER [PST=rl] [ ,LEV={RO| UPD| EXO ] [rID=r21 [ , FLAG=x ' hh ' ] 

DLZDEQ [PST=rl] [ ,LEV=(RO| UPD | EXO ] C,ID=r23 [ , FLAG=x ' hh • 3 

DLZPUR {PST=rl] [,FLAG=x'hh* ] 

Operands 

PST=rl 

specifies the symbolic (or absolute) name of a register 
containing the address of the PST. It this operand is omitted ^ 
register one is assumed. 

LEV=(RO|UPD|EXC} 

specifies the level involved; RO = read only, UPD = update, and 
EXC = exclusive. If omitted, it is assumed the PSTQLEV field in 
the PST is set with the proper code. 

ID=r2 

specifies the symbolic (or absolute) name of a register 
containing the address of the seven byte field containing the 
resource IDo If omitted, it is assumed the address is stored in 
the PST^RK2 field in the PST. 



FLAG=x'hh' 



specifies the byte value that is "OR*ed into the return code for 
those tasks currently waiting for the resource. 
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^ 
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iCB creation and maintenance (see DLZUACBO) 

^CB extension 5-13 

^CBXT - ACB extension 5-13 

iccumulation header record 5-131 

iccumulation record 5-131 

\CT (application control table) 3-13 

application 

control blocks load and 

relocate (DLZBLMO) 3-6 
control table (ACT) 3-13 
program control (DLZPCCOO) 3-5 
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program termination record 5-132 



backout utility (see DLZBACKO) 
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initialization (see DLZRRCOO) 
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BFPL (buffer pool control 

block prefix) 5-19 
BPC (see DLZBPCOO) 
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handler (see DLZDBHOO) 

prefix (BFFR) 5-16 

pool control blocks 5-11 

pool control block prefix (BFPL) 5-19 
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control program initialization 

(DLZCPIOO) 3-7 
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DACS (HDAM randomizing table) 5-24 
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areas 5-1 
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management block (DMB) 5-7 

record (input) 5-138 

record (output) 5-139 

set group (DSG) 5-36 
date/time table 5-139 
DB buffer handler (see DLZDBHOO) 
DB logger (see DLZRDBLO) 
DBD (data base description block) 7-30 
DBD generation 7-19 
DBDGEN macro descriptions 7-24 
DDIR (DMB directory) 5-25 
delete/replace (see DLZDLDOO) 
delete work area 5-139 
delete work space prefix 5-141 



diagnostic aids 6-1 
DLZABEND - STXIT ABEND 3-10 
DLZBACKO - batch backout interface 

description 3-68 

directory 4-7 

HD backout 2-237 

HIPO (overview) 2-233 

HISAM or INDEX backout 2-236 

process log record 2-234 

simple HISAM backout 2-235 
DLZBN13C0 - batch nucleus 

directory 4-2 

HIPO (overview) 2-21 

program request handler 2-22 

partition ABEND 2-23 
DLZBPCOO - batch partition controller 

ABEND exit routine 2-200 

batch request processing 2-196 

BPC wait and ABEND XECBs 2-195 

description 3-62 

directory 4-6 

HIPO (overview) 2-189 

online scheduling call 2-193 

task initialization 2-190 

termination 2-198 
DLZCPIOO - control program 

initialization 3-7 
DLZCPYIO - field level sensitivity 

copy 3-60 
DLZDBHOO - DB buffer handler 

byte alter/buffer alter 2-144 

byte locate/block locate 2-143 

description 3-38 

directory 4-4 

free buffer space 2-151 

get buffer space 2-145 

HIPO (overview) 2-141 

LOCATE buffer search 2-147 

LOCATE buffer write 2-148 

LOCATE new block processing 2-149 

LOCATE read 2-150 

LOCATE routine 2-146 

purge buffers 2-154 

purge buffers (CHKP function) 2-152 
DLZDBLMO - control block load 

and relocate 3-6 
DLZDDLEO - load/insert 

description 3-28 

directory 4-4 

HDAM/HIDAM not load 2-112 

HDAM/HIDAM load 2-110 

HIPO (overview) 2-101 

HISAM dependent segment 
insert 2-107 

HISAM load 2-104 
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